var N,N1,s:integer;
BEGIN
writeln('Введите целое число:');
readln(N);
N1:=N;
while N<>0 do begin
s:=s+N mod 10;
N:=N div 10;
end;
writeln('Сумма цифр числа ',N1,' равна ',s,'.');
end.
