Найти сумму чисел 4-х значного числа используя линейный алгоритм

Var   n,s: longint; begin   write('введите натуральное четырехзначное число: ');   readln(n);   s: =n mod 10;   n: =n div 10;   s: =s+n mod 10;   n: =n div 10;   s: =s+n mod 10;   n: =n div 10;   s: =s+n;   writeln('сумма цифр введенного числа равна ',s) end. тестовое решение: введите натуральное четырехзначное число: 1745 сумма цифр введенного числа равна 17

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.