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