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

Question

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

то вывести произведение первых двух, если 0, то квадрат суммы первых двух, если

положительное, то модуль разности первых двух
в Паскале

Answer 1

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.