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;beginwriteln('введите целое число');readln(a);sumdig(a);end.