Найти количество простых трёхзначных чисел

var i,k:integer;
 
function prost(a:integer):boolean;
var i:integer;
  f:boolean;
begin
  if a<2 then
    f:=false
  else begin
    f:=true;
    i:=2;
    while (sqr(i)<=a) and f do
      if a mod i <> 0 then
        inc(i)
      else
        f:=false; end;
  prost:=f;
end;
 
begin
  for i:=100 to 999 do
    if prost(i) then
      inc(k);
  
  writeln('Количество простых трехзначных чисел:',k);
end.

var
  i, t, n, d: integer; //делитель, количество простых, счётчик для трёхзначных, шаг чисел вида 6k(+-)1
  p: boolean; //факт ненахождения делителей числа
begin
  for n := 100 to 999 do //цикл по числам
    begin
      i := 5; //первое число вида 6k(+-)1
      d := 2; //шаг до следующего числа вида 6k(+-)1
      p := (n mod 2 <> 0) and (n mod 3 <> 0); //проверяем, что не делится на 2 и 3
      while p and (i * i <= n) do //цикл проверки на простоту:
        begin //повторять, если не найден делитель, и следующий делитель не более корня из числа
          p := n mod i <> 0; //проверяем, что не делится на очередное число вида 6k(+-)1
          inc(i, d); //вычисляем следующее число вида 6k(+-)1
          d := d xor 6 //меняем шаг: если был 2, то будет 4, если был 4, то будет 2
        end; //конец цикла проверки на простоту
      if p then inc(t) //если простое, то инкрементируем счётчик
    end; //конец цикла по числам
  writeln('Количество простых трёхзначных чисел: ', t) //печать ответа
end.