{* Задача 541 *}

Unit ZADACH541;
Interface
Implementation
Begin
 writeln('Составить программу, определяющую, проходит ли график функции y=x*x+2*x+2 через точку А(x,y).');
End.

Program zadach541;

Uses zadach541.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  x  : real;
  y  : real;
  x1 : real;
  y1 : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln ('введите x');
  readln (x);
  writeln ('введите y');
  readln (y);
  y1 := x * x+2 * x+2;
  writeln ('y1= ', y1 : 2:0);
  readln; {* Приостановка программы. Ожидание Enter *}
  If (y = y1) Then
    writeln ('проходит')
  Else writeln('не проходит');
    readln; {* Приостановка программы. Ожидание Enter *}
End.