Дано предложение. Удалить из него все цифры.

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.