{prog on pascal}
program prost;
  var
    q,i,j,k,p:integer;
    mas1:array [1..15000] of integer;
    mas2:array [1..1800] of integer;
begin
  readln(k);
  for i:=1 to k do
    readln(mas1[i]);
  {assign(output,'d:\!progs\out.txt');
  rewrite(output);}

  mas2[1]:=2;
  i:=3;
  p:=2;
  j:=3;
  while i<15000 do
    begin
      j:=3;
      while sqr(j)<=i do
        begin

          if (i mod j)=0 then
            begin
              q:=1;
              break;
            end;

          j:=j+2;
        end;

      if q=0 then
        begin
          mas2[p]:=i;
          inc(p);
        end;
      i:=i+2;
      q:=0;
    end;
  for i:=1 to k do
    writeln(mas2[mas1[i]]);
end.

Read problem statement more carefully.

i have read, but i don't understand where the reason in my program