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

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.