Вывести K-e степени чисел из заданного набора

var
  i,n,k:integer;
  A:real;
function power(x:real;n:integer):real;
var
  i:integer;
  c:real;
 begin
  c:=1;
  for i:=1 to n do c:=c*x;
  power:=c;
 end;
 begin
   repeat
     write('N,K=');readln(n,k);
   until(k>0) and (n>0);
   randomize;
   for i:=1 to n do begin
     A:=-50+random*100;
     writeln('A(',i,')=',A:0:6,' ^',K,'=',power(a,k):0:6);
    end;
end.

program kakimoff;
var
  i,n,k:integer; z1,z2:text;
  A:real;
function Funkciya(x:real;n:integer):real;
var
  i:integer;
  c:real;
 begin
  c:=1;
  for i:=1 to n do c:=c*x;
  funkciya:=c;
 end;
 begin assign(z1,'x111_in.txt');
 rewrite(z1);
  assign(z2,'x111_out.txt');
 rewrite(z2);
   repeat
     writeln('N,K=');readln(n,k); writeln(z1,n); writeln(z1,k);
   until(k>0) and (n>0);
   for i:=1 to n do begin
     readln(A); write(z1,A);
     writeln(z2,'A(',i,')=',A:0:6,' ^',K,'=',funkciya(a,k):0:3);
    end;
    close(z1); close(z2);
end.

program kakimoff;
 
var
  i, n, k: integer; z1, z2: text;
  A: real;
  s: string;
function Funkciya(x: real; n: integer): real;
var
  i: integer;
  c: real;
begin
  c := 1;
  for i := 1 to n do c := c * x;
  funkciya := c;
end;
 
begin
  assign(z1, 'x111_in.txt');
  rewrite(z1);
  assign(z2, 'x111_out.txt');
  rewrite(z2);
  repeat
    writeln('N,K=');readln(n, k); writeln(z1, n); writeln(z1, k);
  until(k > 0) and (n > 0);
  for i := 1 to n do 
  begin
    readln(A); write(z1, A);
    writeln(z2, 'A(', i, ')=', A:0:6, ' ^', K, '=', funkciya(a, k):0:3);
  end;
  close(z1); close(z2);
  Reset(z2);
  While not Eof(z2) do
  Begin
    readln(z2,s);
    writeln(s);
  End;
  Close(z2);
end.