3. Вычислить сумму цифр произвольного целого числа.

Program n1;

var a: longint;

procedure sumdig (var x: longint) ;

var s:longint;

begin

s:=0;

while (x0) do

begin

s : = s + (x mod 10) ;

x : = x div 10;

end;

writeln ('сумма цифр числа = ', s) ;

end;

begin

writeln ('введите целое число') ;

readln (a) ;

sumdig (a) ;

end.