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