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