Хелп. Плиз информатика

1. По формуле суммы арифметической прогрессии S=n(n+1)/2

begin
  var n:=ReadInteger('n=');
  Writeln('S=',n*(n+1) div 2)
end.


n= 10
S=55

2. Сумма чисел натурального ряда, кратных 5 или 8.

begin
  Writeln('S=',1.To(50).Where(t->(t mod 5=0) or (t mod 8=0)).Sum)
end.


S=403

3. Очередную цифру получаем, беря остаток от деления числа на 10.
Затем число делим на 10 нацело и повторяем операцию до тех пор, пока не получим после деления 0.

begin
  var n:=Abs(ReadInteger('n=')); // Abs - а вдруг число отрицательное?
  var s:=0; // для суммы цифр
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  Writeln('Сумма цифр в числе равна ',s)
end.


n= 4356203
Сумма цифр в числе равна 23