mixster

program Prime;

function GeneratePrimes(n: Integer): Integer;
var
  p: array of Boolean;
  i, x, np, t: Integer;
begin
  Result := GetSystemTime;
  SetLength(p, n + 1);
  for i := 2 to n do
  begin
    if(not p[i]) then
    begin
      np := np + 1;
      x := i * 2;
      while x <= n do
      begin
        p[x] := True;
        x := x + i;
      end;

    end;
  end;
  Result := GetSystemTime - Result;
  Writeln('Picked up ' + IntToStr(np) + ' primes');
end;

begin
  Writeln('Begin');
  Writeln(IntToStr(GeneratePrimes(400000)) + 'ms to run');
  Writeln('End');
end.