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

program sum_numerals;
var a,b,c,x,s:INTEGER;
begin
write(Enter x (three digits) );
readln(x);
a:=x div 100; // Число сотен
b:=x mod 100; // Остаток после дробления на 100
b:= b div 10; // Число целых 10-ов в остатке
c:=x mod 10; // Число единиц
s:=a+b+c;
writeln(s)
end.