Выведите все двузначные числа, которые кратны 5 на языке паскаль через цикл repeat или while как в : условие n< 100, т.е. n: =10

Program kratno;
var n: integer;
begin
n:=10;
while n<100 do begin
if n mod 5 = 0 then
writeln (n);
n:=n+1;
end;
end.

Var
  s,sd:string;
  i,n,sum,d,err:integer;
begin
  Writeln('Введите строку для суммирования');
  Read(s);
  sum:=0;
  n:=Length(s);
  if n>0 then begin
    i:=2; sd:=s[1];
    while i<=n do begin
      if s[i]<>'+' then sd:=sd+s[i]
      else begin
        Val(sd,d,err);
        sum:=sum+d;
        sd:=''
      end;
      Inc(i);   
    end;
    Val(sd,d,err);
    sum:=sum+d
  end;
  Writeln('Сумма равна ',sum)
end.

Тестовые примеры:
Введите строку для суммирования
1+25+3
Сумма равна 29

Введите строку для суммирования
143+38+253+62
Сумма равна 496

Лист формата А4 имеет размер 297х210 мм. В 1 дюйме 25.4 мм, тогда размер в дюймах будет примерно равен 11.7х8.27.
Разрешение сканера 600 dpi означает, что каждый линейный дюйм содержит 600 точек (пикселей) изображения. Тогда размер изображения в пикселях будет 7020х4962.
Палитра в 1048576 цветов требует для кодирования бит.
Теперь можно найти размер изображения: 7020х4962х20 = 696 664 800 бит.
Для перевода в байты делим на 8 и получаем 87 083 100 байт.
Выразим размер в мегабайтах, для чего разделим его на 1024²
87 083 100 / (1024х1024) ≈ 83.05 Мбайт