var
a,i,n:integer;
b,sum:real;
begin
writeln('a and n');
readln(a,n);
b:=1;
sum:=0;
for i:=1 to n do
begin
sum:=sum+b;
b:=b/(a*a);
end;
writeln('sum= ', sum:4:2);
readln;
end.
var
a,i,n:integer;
b,sum:real;
begin
writeln('a and n');
readln(a,n);
b:=1;
sum:=0;
for i:=1 to n do
begin
sum:=sum+b;
b:=b/(a*a);
end;
writeln('sum= ', sum:4:2);
readln;
end.