Ввести 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; можно удалить. Но не желательно.