program dl9_meru3;
var a,s:real; n,i:integer
begin
writeln ('Vvedit A i N(>0)');
readln (a,n);
s:=0;
a:=a+1;
for i:=2 to n do
s:=s+a;
a:=a*a;
end;
writeln ('suma=',s);
readln
end.
