Program mn_2;
uses crt;
type let='a'..'z';
var gl:set of let;
s:string;
i:byte;
begin
writeln('введите текст');
readln(s);
gl:=['a','e','i','o','u','y'];
i:=1;
repeat
while s[i] in gl do delete(s,i,1);
s[i]:=upcase(s[i]);
i:=i+1;
until s[i]='.';
writeln;
readln;
end.