C клавиатуры вводится трехзначное число. Нужно написать программу , вычисляющую сумму цифр числа : выполнить транссировку

Program (название вашей программы без скобок);

var

A, sum, k: integer;

begin

sum:=0;

k:=0;

readln(A);

while A>0 do

begin

sum:=sum+Amod10;

A:=Adiv10;

end;

writeln(sum);

end.

Работа программы для числа 152:

ввели число А

152 больше 0? да, переход на следующий шаг

sum=0+2

А=15

15 больше 0? да, переход на следующий шаг

sum=2+5

А=1

1 больше 0? да, переход на следующий шаг

sum=7+1

А=0

0 больше 0? нет, конец цикла While

вывод на экран значения ячейки sum

вывод числа 8