Помощь с задачей по информатике. Помогите составить программу в Pascal:Введите 2 числа. Определите являются ли эти числа положительными, отрицательными или числа имеют разные знаки

Приведенная ниже программа на Pascal позволяет определить, являются ли два введенных числа положительными, отрицательными или имеют разные знаки:

program CheckNumbers;
var
  num1, num2: integer;
begin
  writeln('Введите первое число:');
  readln(num1);
  writeln('Введите второе число:');
  readln(num2);

  if (num1 > 0) and (num2 > 0) then
    writeln('Оба числа положительные')
  else if (num1 < 0) and (num2 < 0) then
    writeln('Оба числа отрицательные')
  else
    writeln('Числа имеют разные знаки');
end.

Программа запрашивает у пользователя два числа и затем проверяет их знаки с помощью условных операторов if и else. Если оба числа положительные, выводится сообщение "Оба числа положительные". Если оба числа отрицательные, выводится сообщение "Оба числа отрицательные". В противном случае, выводится сообщение "Числа имеют разные знаки".