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