{* Вычисление выражения 5 *}

Unit VIRAGEN5;
Interface
Implementation
Begin
 writeln('

Найти значение выражения ( -нат. число, а>0, х>0,

f=sqr(a+sqr(a+sqr(a+..sqr(a))..) ) n знаков "+" }

');
End.

Program pas29061;

Uses viragen5.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  a : integer;
  n : integer;
  i : integer;
  f : real;
Begin
  clrscr; {* Очищаем экран *}
  write('n=');
  readln(n);
  write('a=');
  readln(a);
  f := a;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    f := a + sqr(f);
  write('f = ', f);
  readln; {* Ждем нажатия Enter *}
End.