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