Дано 3 числа. Если они все отрицательные, то вычислить и напечатать куб 2-го числа, в противном случае-произведение 2-ух первых чисел- Pascal(Паскаль)

var
  a1, a2, a3: integer;

begin
  readln(a1, a2, a3);
  if (a1 < 0) and (a2 < 0) and (a3 < 0) then
    Writeln('Квадрат второго числа: ', a2 * a2 * a2)
  else
    Writeln('Произведение первых двух чисел: ', a1 * a2);

end.