begin
var a:=ReadReal('a=');
var n:=ReadInteger('n=');
var s:=1/a; // для n=1
if n<=1 then s+=1
else
a*=a; // a^2
var z:=a;
for var i:=2 to n do
s+=1/z;
z*=a
end
end;
Println(s)
end.
begin
var a:=ReadReal('a=');
var n:=ReadInteger('n=');
var s:=1/a; // для n=1
if n<=1 then s+=1
else
begin
a*=a; // a^2
var z:=a;
for var i:=2 to n do
begin
s+=1/z;
z*=a
end
end;
Println(s)
end.
a= 3.73n= 50.34553638581855