mixster

program Prime;

function GeneratePrimes(n: Integer): Integer;
var
  p: array of Boolean;
  i, x: Integer;
begin
  Result := GetSystemTime;
  SetLength(p, n + 1);
  p[0] := False;
  p[1] := False;
  for i := 2 to n do
    p[i] := True;
  for i := 0 to n do
  begin
    if(p[i]) then
      for x := 0 to n / i do
        p[x * i] := False;
  end;
  Result := GetSystemTime - Result;
end;

begin
  Writeln('Begin');
  Writeln(IntToStr(GeneratePrimes(400000)));
  Writeln('End');
end.