program prim_allomany;
var i,j:word;
    f:file of word;
    p:boolean;
begin
    assign(f,'szam.dat');
    rewrite(f);
    for i:=2 to 10000 do
    begin
     p:=true;
     for j:=2 to round(sqrt(i)) do
      if i mod j=0 then p:=false;
     if p then write(f,i)
    end;
    close(f);
    {visszaolvassuk:}
    reset(f);
    while not eof(f) do
    begin
     read(f,i);
     write(i:5);
    end;
    readln
end.