найти сумму цифр четырёхзначного числа

var n,a,b,c,d,s:integer;

begin

  write('n='); readln(n); {n -  даанное 4-хзначное число}

  a:=n mod 10; {последняя, 4-я, цифра числа}

  b:=(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c:=(n div 100) mod 10; {2-я цифра}

  d:=n div 1000; {1-я цифра}

  s:=a+b+c+d;

   writeln('s=',s);

end.