Вводим трехзначное натуральное число. Нужно найти сумму чисел этого числа- Pascal(Паскаль)

var
  x, y, z, a: integer;

begin
  writeln('vvedite chisla 3-x znachnogo chisla poocheredno, po 1 s novoy stroky');
  readln(x);
  readln(y);
  readln(z);
  a := x + y + z;
  writeln(' Summa chisel ravna: ', a);
  writeln;
  readln;

end.