Дано трехзначное число.Отыскать сумму цифр числа.(Написать программу на языке Паскаль)

Program chisla;
uses crt;
var a,b,c,d : integer;
begin
Writeln('Введите трехзначное число: ');
Readln(a);
if (alt;100) or (agt;999) then writeln('Введено не трехзначное число')
else
begin
b:=a div 100;
c:=(a-(b*100)) div 10;
d:=a-(b*100)-(c*10);
Writeln('Сумма цифр этого числа одинакова ',b+c+d);
end
end.

Люблю работать в Паскале)