Информатика: с клавиатуры вводится трехзначное число, найдите сумму цифр данного числа

Pascal (//комментарии к программе, т. е. пояснение строки)

Var a, b, c, d:integer;

begin

Write ('Введите трехзначное число') ; read (a) ;

b:=a div 100; / / число сотен

c:=a mod 100 div 10; / / число десятков

d:=a mod 10; / / число единиц

s:=b+c+d; / / складываем цифры

Write ('Сумма цифр трехзначного числа равна: ', s) ;

end.