{* Задача 430 *}

Unit ZADACH430;
Interface
Implementation
Begin
 writeln('Вычислить 7 значений функции.

 ');
End.

Program zadach430;

Uses zadach430.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a : real;
  x : real;
  y : real;
  i : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  gotoxy(8, 3);
  write(‘Вычислить 7 значений функции’);
  gotoxy(15, 5);
  write(‘Введите x : ’);
  readln(x);
  writeln; {* Пропускаем одну строку *}
  a := 0.14 * x;
  For i := 1 To 7 Do {* Цикл для i => [1 .. 7] *}
  Begin
    y := (0.15 * x+a) / (sqr(a) + sqr(x));
    a := a + 0.22;
    gotoxy(10, 6 + i);
    writeln(‘ Y’, i,’ = ’, y);
  End;
  
End.