n целых и a/n дробь
Объяснение:
1 var
2 a, an, n, i: integer;
3
4 begin
5 readln(a, n);
6 an := 1;
7 for i := 1 to n do
8 begin
9 an := an * a;
10 writeln(i, ' ', an)
11 end
12 end.
