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

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

var

A, sum, k: integer;

begin

sum:=0;

k:=0;

readln(A);

while Agt;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