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