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

program zz1;var s:string; // задаем переменную строкового типаi, k:integer; // задаем переменные целого типаbeginwrite(\' введите строку \');read(s); // вводим с клавиатуры строкуfor i:=length(s) downto 1 do // организуем цикл, в котором переберем все символы от последнего до первогоbeginif (s[i] = \'0\')or(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\') then begin k:=k+ord(s[i])-48;delete(s,i,1);end; end;writeln(\' полученная сумма = \', k);write(\'полученная строка = \', s);end.