{* Задача 87 *}

Unit ZADACH87;
Interface
Implementation
Begin
 writeln('Решенияе уравнения xy+x+y=1000 в целых числах');
End.

Program Task_11;

Uses zadach87.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  x : longint;
  y : longint;
Begin
  For x := - 1002 To 1000 Do
    For y := - 1002 To 1000 Do
      If x + y + x * y = 1000 Then
        Writeln('x = ', x, ';
  y = ', y);
End.