Найти сумму чисел 4-х значного числа используя линейный алгоритм

program zz1;

var s, n, k, p, m:integer; / / задаем переменные целого типа

begin

write (' введите четырехзначное число ');

read (n); / / вводим с клавиатуры число

k:=n mod 10; / / получаем первую цифру числа

s:=n div 1000; / / получаем четвертую цифру числа

p: = (n div 10) mod 10; / / получаем вторую цифру числа

m: = (n div 100) mod 10; / / получаем третью цифру числа

writeln (' Сумма цифр заданного четырехзначного числа = ', k + s + p + m); / / выводим ответ

end.