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

program prost_02;
var a, b, ch, del, kd, k: integer;
{a, b - границы интервала чисел;
ch - проверяемые числа;
del - делители;
kd - количество делителей;
k - количество простых чисел}
begin 
write('a='); readln(a);
write('b='); readln(b); 
 
for ch:=a to b do
begin
kd:=0;
k:=0;
for del:=1 to ch do
if ch mod del=0 then inc(kd);
If kd=2 then inc(k);
if k<5 then write(ch:3);
end;
end.

function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;
 
var a, b, ch, k: integer;
begin
write('a='); readln(a);
write('b='); readln(b);
k:=0;
for ch:=a to b do
 begin
  if Prost(ch)then
   begin
    write(ch,' ');
    inc(k);
   end;
  if k=5 then break;
end;
writeln;
if k<5 then writeln('На интервале [',a,',',b,'] нет 5 простых чисел');
end.

program sample;
var n,m,i,k:qword;
 
begin
    write('n=');readln(n);
    write('m=');readln(m);
    k:=0;
    for i:=n to m do
        if i>=2 then
            if ((i=2) or (i=3) or (i=5) or (i=7) or (i=11)) or ((i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) and (i mod 7<>0) and (i mod 11<>0)) then
                k:=k+1;
    writeln(k);
end.

function prime(x:integer):boolean;
var r:boolean=true;
    i:integer=3;
begin
  if(x<>2)and((x<2)or(x mod 2=0))then r:=false
  else
  while i*i<=x do
  begin 
    if x mod i=0 then
    begin
      r:=false;
      break;
    end;
    i:=i+2;
  end;
  prime:=r;
end;
 
var a,b,i:integer;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  for i:=a to b do
    if prime(i) then
      writeln(i);
end.

while i*i<=x do

function prime(x : Integer) : Boolean;
var n, q, d : Integer;
begin
  if (x > 4) and ( ( (x-1) mod 6 = 0) or ( (x+1) mod 6 = 0) ) then
    begin
      n := 5;
      q := Trunc(Sqrt(x));
      d := 2;
      Result := False;
      while n <= q do
        begin
          if x mod n = 0 then Exit;
          inc(n, d);
          d := d xor 6;
        end;
      Result := True;
    end
  else
    Result := (x = 2) or (x = 3);
end;