Простые числа

program Veselo;
 
uses
   utils;
 
const
   x = 32767; 
 
var
   a: array [1..3512] of integer;
   i, j, k, r: Integer;
 
begin
   r := 1;
   for i := 2 to x do begin
      j := 1;
      k := 0;
      while j<=round(sqrt(i)) do begin
         if i mod j = 0 then begin
            k := k + 1;
            end; 
         j := j + 1;
      end;
      k := k - 1;
      if k = 0 then begin
         a[r] := i;
         //writeln(a[r]);
         r := r + 1;
      end;
   end;
   writeln(Milliseconds);
end.

function prost(a:integer):boolean;
begin
  for var i:=2 to round(sqrt(a)) do
    if a mod i = 0 then begin result:=False; exit end;
  result:=True;
end;
var s:=arr&<integer>();
begin
  for var i:=2 to 32767 do
    if prost(i) then s:=s+arr(i);
  millisecondsdelta();
  for var j:=1 to 6000 do //многократный запуск
  for var i:=2 to 32767 do
    prost(i);
  millisecondsdelta().Print; //время с использованием обычного алгоритма
  for var j:=1 to 6000 do
  for var i:=2 to 32767 do
    s.BinarySearch(i);
  millisecondsdelta().Print; //время с использованием таблицы
end.

function IsPrime(a:integer):boolean;
begin
  Result := false;
  var i := 2;
  while i*i<a do
  begin
    if a.Divs(i) then exit;
    i += 1;
  end;
  Result := true;
end;
 
// Вместо магических чисел
const min_a = 2;
const max_a = 32767;
const test_rep_c = 600;
 
begin
  var all_primes := (min_a..max_a).Where(IsPrime).ToArray;
  // Чтобы JIT компилятор не мог удалить вызов (или его часть) IsPrime или BinarySearch
  var test_res := new boolean[max_a-min_a+1];
  
  var sw1 := new Stopwatch;
  var sw2 := new Stopwatch;
  
  // loop вместо for, потому что переменная цикла не здалась
  loop test_rep_c do
  begin
    
    sw1.Start;
    for var a := min_a to max_a do
      test_res[a-min_a] := IsPrime(a);
    sw1.Stop;
    
    sw2.Start;
    for var a := min_a to max_a do
      test_res[a-min_a] := all_primes.BinarySearch(a)<>-1;
    sw2.Stop;
    
  end;
  
  Println(sw1.Elapsed);
  Println(sw2.Elapsed);
  
  // Для чистоты теста надо вырубить генерацию отладочной информации в настройках компилятора
  // И запускать с помощью Shift+F9
  // Readln тут чтобы программа не завершалась сразу
  Readln;
end.