Нахождение простых чисел. Оптимизация

[OmoN]

Еще одно решение. До 100 000 работает 1,03-1,04 секунды.

PHP код:

function IsPrime(n:integer):boolean;
  var r:boolean;
       i:integer;
begin
 r := true;
 i := 3;
 while(i <= sqrt(n))do begin
   if((n mod i) = 0)then begin
     r := false;
     break;
   end;
   i := i+2;
 end;
 result := r;
end;

procedure FindPrimes(maxNumber:integer);
  var i: integer;
       label lab;
begin
 i := 3;
 WriteLn('BEGIN');
 WriteLn('2');
 WriteLn('3');
 while(i<=maxNumber)do begin
   if(i>3)and(i mod 3 = 0)then goto lab;
   if(i>5)and(i mod 5 = 0)then goto lab;
   if(i>7)and(i mod 7 = 0)then goto lab;
   if(((i-1) mod 6)*((i+1) mod 6) = 0)and(i>3) then
     if(IsPrime(i))then WriteLn(i);
   lab:
   i := i+2;
 end;
 WriteLn('END');
end; 


[Evgeniy Sklyarevskiy]

Сообщение от OmoN

До 100 000 работает 1,03-1,04 секунды.

И как там Пи? чему равно по новым данным?