Дана трех значное число найти сумму её цифр

Ответ учителя по предмету Информатика

Var

A:integer;

Begin

WriteLn(‘Введите трёхзначное число’);

ReadLn(A);

WriteLn(‘Сумма его цифр равна: ‘,(A div 100)+((A div 10) mod 10 )+(A mod 10));

End.