Var
a, Summ:integer;
begin
write ('Введите число ');
readln (a);
Summ : = 0;
while a > 0 do
Summ : = Summ + a mod 10;
a : = a div 10;
end;
writeln ('Сумма цифр равна ', Summ);
end.
Var
a, Summ:integer;
begin
write ('Введите число ');
readln (a);
Summ : = 0;
while a > 0 do
begin
Summ : = Summ + a mod 10;
a : = a div 10;
end;
writeln ('Сумма цифр равна ', Summ);
end.