Program enot;
Var s: string;
i,n:integer;
begin
write('введите предложение: ');
read(s);
n:= length (s);
for i:= 1 to n do
case s[i] of
'0': delete (s,i,1);
'1': delete (s,i,1);
'2': delete (s,i,1);
'3': delete (s,i,1);
'4': delete (s,i,1);
'5': delete (s,i,1);
'6': delete (s,i,1);
'7': delete (s,i,1);
'8': delete (s,i,1);
'9': delete (s,i,1);
end; writeln(s);
end.