С клавиатуры вводится трехзначное число.Подсчитать сумму его цифр.

На паскали держи:
var:
a,b,c,d:integer;
begin
read(a);
b:=a div 100;
d:=a mod 10;
c:= (a div 10) mod 10;
write(b+c+d);
end.