Ввести 3-х значное число , вывести сумму его цифр ( паскаль)

Program summa_4isel;
Uses crt;
Var a,e,z,y,x:integer;
Begin
Writeln(Введите трехзначное число);
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln(Сумма чисел ,x, ,y, и ,z, равна ,e,.);
end.

В задаче переменными обозначены:
a-трехзначное число
e-сумма чисел
x, y и z - первое, второе и третье число соответственно.

p.s. Uses crt; можно удалить. Но не желательно.