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

Program n1;
var a: longint;
procedure sumdig(var x: longint);
var s:longint;
begin
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'сумма цифр числа = ', s );
end;
begin
writeln('введите целое число');
readln(a);
sumdig(a);
end.