Найти сумму чисел 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

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a

1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.

2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);

  soobshenie zanimaet 11 bait.

3)analogichno 15 bait.