Дано 3 х значное число. Найти сумму и произведение всех чисел

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.

p. s.

a-трехзначное число

e-сумма чисел

x, y и z - первое, второе и третье число соответственно.