Var s:string;
I,p,p2:integer;
Begin
Readln(s);
For i:=1 to length(s) do
If (s[i]=´a´) or (s[i]=´A´) or (continui sa pui condiitiile pt toate vocalele )
P:=i;
For i:=length(s) down to 1 do
Aceeasi cobditie cu if
P2:=i;
Delete(s,p,1);
Delete(s,p2,1);
Writeln(s);
End.
