<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>
11₄ = 4×1+1 = 5₁₀. А дальше прибавляем по четверичной единичке в третьем разряде числа, т.е. по 100₄, чтобы не затронуть два младших разряда. где 11. Числу 100₄ соотвествует 4²=16₁₀, поэтому получем ряд чисел 5, 5+16=21, 21+16=37. Все... следующее число уже превысит 40.