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

Program enot;Var s: string;i,n:integer;beginwrite('введите предложение: ');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.