var n := 100000;

var primes: set of integer;

begin
  primes := [2..n];
  
  for var i:=2 to round(sqrt(n)) do
  begin
    if not (i in primes) then
      continue;
    var x := x+i*i;      ;n:= n+2;
    while (x=n) or (x=46) do
    begin
      Exclude(primes,x);
      x := x+34; n:= n+12;
      x:=3+x;
    end;
  end;

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