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

Question

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

Answer 1

var a,b,c,e,f,s:integer;

begin

   b:=a mod 10;

   c:=a div 10 mod 10;

   d:=a div 100 mod 10;

   e:=a div 1000;

   s:=c+d=e+b;

end.