Склавиатуры вводятся три целых значения. если последнее число отрицательное, то вывести произведение первых двух, если 0, то квадрат суммы первых двух, если положительное, то модуль разности первых двух в паскале

Var
  x, y, z: integer;
begin
  write('Введите три числа = ');
  readln(x, y, z);
  if z < 0 then writeln(x * y);
  if z = 0 then writeln(sqr(x + y));
  if z > 0 then writeln(abs(x - y));
end.