<span>for i:=1 to length(s) do
if s[i] in ['1'..'9'] then sum:=sum+ord(s[i])-48;//здесь ноли не считаем, от них сумма не меняется
writeln('Сумма цифр в тексте='sum);
if sum>5 then
begin
for i:=lengrh(s) downto 1 do
if s[i] in ['0'..'9'] then delete(s,i,1);
write(s);
end
else write('Цифры не удаляются!');</span>