pascalabcnet/InstallerSamples/Algorithms/Eratosthenes.pas

// "Решето Эратосфена" - вычисление простых чисел
const n = 100000;

begin
  var primes := HSet(2..n);
  
  for var i:=2 to Round(Sqrt(n)) do
  begin
    if not (i in primes) then
      continue;
    var x := i*i;
    while x<=n do
    begin
      primes -= x;
      x += i;
    end;
  end;

  Println('Простые числа <',n,':');
  Println(primes);
  Println;
  Println('Время вычисления:',Milliseconds/1000);
end.