{* Задача 439 *}

Unit ZADACH439;
Interface
Implementation
Begin
 writeln('Вычислить:

');
End.

Program zadach439;

Uses zadach439.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  x : integer;
  p : real;
  s : real;
  y : real;
Begin
  p := 1;
  s := 0;
  For x := 4 To 9 Do {* Цикл для x => [4 .. 9] *}
    p := p * sqrt(x);
  For x := 5 To 9 Do {* Увеличиваем x от 5 до 9 с шагом 1 *}
    s := s + (sqr(x) / 16);
  y := (121 - s) / p;
  writeln ('y=', y);
End.