С клавиатуры вводят строку, состоящую из латинских букв

и цифр. Написать программу, которая вычисляет сумму цифр, попадающихся в этой

строке, а также выводящую строку после исключения из неё этих цифр. Для паскаль abc.

Var s, al:string; a, i:integer;

begin

read (s) ;

al:='1234567890';

i:=length (s) ;

while i>0 do begin

if poa (s[i], al) 0 then begin a:=a+strtoint (s[i]) ; delete (s, i, 1) ; end;

i:=i-1;

end;

writeln (Сумма: ', a) ;

writeln ('Строка без цифр: ', s) ;

end.