program eratosztenesz;
uses Crt;
const
  N=500; {  a vizsg�lt tartom�ny hat�r�nak fele, maximum 64820 }
var
  szita   : array[1..N] of boolean;
  i,j,koz : longint;
  kut : char;
begin
  ClrScr; WriteLn(' A szit�l� pr�msz�m :':50); WriteLn;
  { feltessz�k, hogy minden sz�m pr�m }
  for i:=1 to N do szita[i]:=TRUE;
  { a 2 pr�m, ki�ratjuk }
  Write('2':8);
  { szam�t�s a 3-mal indul }
  i:=3;
  { ciklus, am�g i nem lesz nagyobb a hat�r n�gyzetgy�k�n�l }
  while i<=Round(Sqrt(2*N)+1) do
   begin
    if szita[(i-1) div 2] then
     begin
       { pr�met tal�ltunk, amivel szit�lni kell }
       Write(i:8);
       { p�ratlan sz�mszoros elemeket kell kiejteni }
       koz:=2*i;
       { az els� a 3-szorosa a tal�lt pr�mnek }
       j:=3*i;
       while j<=2*N+1 do
         begin
          { a t�bbsz�r�s t�rl�se a pr�mek k�z�l }
          szita[(j-1) div 2]:=FALSE;
          j:=j+koz;
         end;
      end;
     i:=i+2;
   end;
  { v�rakoz�s billenty�le�t�sre }
  repeat until KeyPressed; kut:=ReadKey; WriteLn;
  WriteLn('A tal�lt pr�mek :':48);
  { ki�rat�s }
  Writeln; Write('2':8); j:=1;
  for i:=1 to N do
    if szita[i]
      then begin Inc(j); Write(2*i+1:8); end;
  WriteLn; WriteLn; Write(2*N:25,'-ig ',j,' darab pr�msz�m tal�lhat�.');
  repeat until KeyPressed;
end.