Нужно решить задачу на eolymp №8864 Pascal (fpc 3.2)

var

 n, m: integer;

begin

 readln(n, m);

 if (n > 0) and (m > 0) or (n < 0) and (m < 0) then

   writeln('1')

 else

   writeln('0');

end.

Сначала мы считываем два целых числа n и m. Затем мы проверяем знаки n и m на совпадение с помощью условного оператора if. Если оба числа положительны или оба отрицательны, то мы выводим 1. В противном случае мы выводим 0.