Дано трёхзначное число. Найти сумму его чисел.

Например число 321: 3+2+1=6

Program summacifer;

var

sum, sot, des, ed, ch:integer;

begin

writeln ('введите трехзначное число') ;

readln (ch) ;

sot:=ch div 100;

ed: = ch mod 10;

des: = ch mod 100;

des: = des div 10;

sum:=sot+ed+des;

writeln ('сумма цифр вашего числа равна', sum) ;

end.