7:2=3 (ост.1)7 div 2=37 mod 2=1123: 100= 1,23 ( 1 рез-т div; 23 рез-т mod)123 mod 10= 3123 div 100 =1123 div 10 mod 10= 2123 mod 100 div 10= 2Найти сумму цифр четырехзначногичисла

Нужна программа? Pascal:

var a,i:integer;

begin

read(a);

i:=0;

 while a>0 do begin

   i:=i + a mod 10;

   a:= a div 10;

 end;

 write(i);

end.

Работает для всех  натуральных чисел(не только для 4-ех значных)