Program P87;
            uses crt;
            const n = 255;
            type MN = SET OF 1..n;
            VAR sita, NP : MN;
            i, m : integer;
begin clrscr;
             sita:=[2..n];
             NP:=[];
             i:=2;
             repeat
                   while not (i in sita) do
                                           i:=succ(i);
                                           NP:=NP+[i];
                                           write(i:4);
                                           m:=i;
                   while m<=n do begin
                                      sita:=sita-[m];
                                      m:=m+i;
                                 end;
             until sita=[];
             writeln;
      readln;
end.