uses crt;
var s:string;
i,l:integer;
begin
clrscr;
write('stroka: '); readln(s);
l:=length(s);

for i:=1 to l do begin
if (s[i]=(chr(97))) or (s[i]=(chr(98))) or (s[i]=(chr(99))) or (s[i]=(chr(100)))or
(s[i]=(chr(101)))or(s[i]=(chr(102)))or(s[i]=(chr(103)))or(s[i]=(chr(104)))or
(s[i]=(chr(105)))or(s[i]=(chr(106)))or(s[i]=(chr(107)))or(s[i]=(chr(108)))or
(s[i]=(chr(109)))or(s[i]=(chr(110)))or(s[i]=(chr(111)))or
(s[i]=(chr(112)))or(s[i]=(chr(113)))or(s[i]=(chr(114)))or(s[i]=(chr(115)))or
(s[i]=(chr(116)))or(s[i]=(chr(117)))or(s[i]=(chr(118)))or
(s[i]=(chr(119)))or(s[i]=(chr(120)))or(s[i]=(chr(121))) or
(s[i]=(chr(122)))or(s[i]=(chr(123)))or(s[i]=(chr(124)))

then delete(s,i,1)
end;
writeln(s);
readln;
end.