Паскаль.Процедуры

[Volt]

var  x, n, i:integer; y:real;
begin
readln(x);
readln(n);

y:=exp(ln(x)*n);
for i:=1 to n do
y:=y+exp(ln(x)*(n-i));

writeln(y);
end;