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

#include <stdio.h>
int main(void)
{
    int k,n;
    printf("N:");
    scanf("%i", &n);
    printf("K:");
    scanf("%i", &k);
 
    int i,i2;
    float a,pow;
    for (i=1; i<=n; ++i){         printf(">");
        scanf("%f", &a);
        for(i2=1, pow=1; i2<=k; ++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(0,N):
    A = random.randrange(-10,11)
    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 Series26;
var
 i,i2,N,K,Num,Pow :Integer;
begin
  Writeln('N:');
  Readln(N);
  Writeln('K:');
  Readln(K);
  for i:=1 to N do
   begin
     write('Введите ',i,' элемент из набора :');
     Readln(Num);
     Pow:=1;
     For i2:=1  to K do
      begin
       Pow:=Pow*Num;
      end;
     Writeln(Pow);
  end;
end.