PROGRAM z_16_55;</br>
var s,snew:string;</br>
n,i:byte;</br>
BEGIN
write('vvedite stroky');</br>
readln(s);</br>
n:=length(s);</br>
snew:=' ';</br>
for i:=1 to n do
if s[i] in ['a','e','i','o','u']
then snew:=snew+s[i]+s[i]
else snew:=snew+s[i];</br>
writeln(snew);</br>
END.