{* Задача 489 *}

Unit ZADACH489;
Interface
Implementation
Begin
 writeln('Написать программу для решения уравнения xy+x+y=1000 в целых числах. ');
End.

Program zadach489;
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.