066536 / 81

program andzad81;
uses crt;
var p,a:real;
n,i:integer;
begin
clrscr;
writeln('Vvedite znachenie n');
readln(n);
writeln('Vvedite znachenie a');
readln(a);
p:=0;
for i:=1 to n do
p:=sqr(p+a);
writeln('P=',p:10);
readln;
end.