{* Задача 402 *}

Unit ZADACH402;
Interface
Implementation
Begin
 writeln('Проверить лежат ли точки в заданном участке графика. Результат вывести в файл.

');
End.

Program zadach402;

Uses zadach402.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  x   : Array [1..5] Of real;
  y   : Array [1..5] Of real;
  res : text;
  i   : integer;
Begin
  ClrScr; {* Очистка экрана *}
  Assign(res, 'C:LabaRab7.txt'); {* Связывание res с файлом 'C:LabaRab7.txt' *}
  Rewrite(res); {* Подготовка переменной res для записи в файл *}
  Append(res); {* Открытие файла для добавления информации *}
  WriteLn(res, 'Точки удовлетворяющие условию:');
  For i := 1 To 5 Do {* Увеличиваем i от 1 до 5 с шагом 1 *}
  Begin
    WriteLn('Введите координаты точки A', i, ': ');
    Write('x=');
    ReadLn(x[i]);
    Write('y=');
    ReadLn(y[i]);
    If (sqr(x[i]) + sqr(y[i])4) And    (y[i] + x[i] > 0) Then
    Begin
      Append(res); {* Добавление к концу файла через res *}
      WriteLn(res, 'A', i, ' (', x[i] : 2:1, ' , ', y[i] : 2:1, ')');
    End;
    
  End;
  Close(res); {* Закрыть файл res *}
End.