Дано трехзначное число. Найти сумму и произведение его цифр — Pascal(Паскаль)

Program Integer11;

var
  a, r, x, z, y, l: integer;

begin
  Writeln('Введите число a');
  readln(a);
  x := a div 100;
  y := a mod 10;
  z := (a div 10) mod 10;
  r := x + y + z;
  l := x * y * z;
  Writeln('Summa=', r);
  Writeln('Proizvedenie=', l);

end.