Var s:string; i:byte;
Begin
write('cuvantul:');
readln(s);
For i:=1 to length(s) do
If s[i] in ['a','e','i','o','u'] then
write(s[i]);
readln;
End.
anonim_4396 întreabă:
Ciocinta_Alexandru_1976 întreabă: