Решение задачи Series 28

#include <stdio.h>
int main(void)
{
    int n;
    printf("N:");
    scanf("%i", &n);
 
    int i,i2;
    float a,pow;
    for (i=1; i<=n; ++i){         printf(">");
        scanf("%f", &a);
        for(i2=1, pow=1; i2<=n-i+1; ++i2) pow*=a;
        printf("%f\n",pow);
    }
    return 0;
}

import random

N = random.randrange(2,10)
K = random.randrange(0,10)

print("N = ",N)
print("K = ",K)
for i in range(N,0,-1):
    A = random.randrange(-10,11)
    K = i
    A_K = 1
    for j in range(0,K):
        A_K *= A
    print("{0}. {1}^{2} = {3}".format(i+1,A,K,A_K))
									

program Series28;
var
 i,i2,N,Num,Pow :Integer;
begin
  Writeln('N:');
  Readln(N);
  for i:=1 to N do
   begin
     write('Введите ',i,' элемент из набора :');
     Readln(Num);
     Pow:=1;
     For i2:=1  to N-i+1 do Pow:=Pow*Num;
     Writeln(Pow);
  end;
end.