{ Найти значение выражения ( -нат. число, а>0, х>0, f=sqr(a+sqr(a+sqr(a+..sqr(a))..) ) n знаков "+" }

uses crt;
var a,n,i : integer;
        f : real;
begin
  clrscr;
  write('n=');readln(n);
  write('a=');readln(a);
  f:=a;
  for i:=1 to n do f:=a+sqr(f);
  write('f = ',f);
  readln;
end.