var a:array[1..20] of integer;
position:integer;
i:integer;
n:integer;
count:integer;
z:text;
number:integer;
answer: real;

function power(a:real;b:integer):real;
var i:integer;
answer:real;
begin
answer:=1;
for i:=1 to b do begin
answer:=answer*a;
end;
power:=answer;
end;

begin
assign(z,'u63.txt');
reset(z);
{get data }
read(z,number);
i:=1;
while(number<>-1) do begin
A[i]:=number;
i:=i+1;
read(z,number);
end;
count:=i-1;
write('enter value of n for me to use ');
read(n);
{ begin search }
position:=-1;
i:=1;
while(position= -1) do begin
if power(a[i],n) > 1000 then begin
position:=i;
end;
i:=i+1;
end;
write('value ', A[position], ' at position ',position , ' first >
1000 ');
writeln;
end.