Нужно написать программу на языке Паскаль, которая будет убирать из строки все символы кроме цифр. Пример: входной - a3f4h5k&2 выходной: 3452

program zz1;

var s:string; / / задаем переменную строкового типа

i:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=length (s) downto 1 do / / организуем цикл, в котором переберем все символы от последнего до первого

begin

if (s[i] = '1') or (s[i] = '2') or (s[i] = '3') or (s[i] = '4') or (s[i] = '5') or (s[i] = '6') or

(s[i] = '7') or (s[i] = '8') or (s[i] = '9') or (s[i] = '0')

then

else

delete (s, i, 1);

end;

write ('полученная строка = ', s);

end.