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

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