Определить количество простых чисел в промежутке чисел от m до n

program zd;
uses crt;
var m,n,i,k,p,g:integer;
              s:boolean;
begin
clrscr;
writeln('m and n');
readln(m,n);
k:=0;
s:=true;
for i:=m to n do
begin
g:=i;
for p:=2 to g div 2 do
if g mod p=0 then
begin
s:=false;
break;
if s then
writeln(g);
end;
end;
readln
end.

program zd;
uses crt;
var
 m,n,i,p:integer;
 s:boolean;
begin
clrscr;
repeat
 write('m and n:=');
  readln(m,n);
until m<n;
for i:=m to n do
begin
 s:=true;
for p:=2 to round(sqrt(i)) do
 if i mod p=0 then
  s:=false;
   if s then
 write(i:3);
end;
readln
end.

program zd;
uses crt;
var
 m,n,i,p,kol:integer;
 s:boolean;
begin
clrscr;
repeat
 write('m and n:=');
  readln(m,n);
until m<n;
kol:=0;
for i:=m to n do
begin
 s:=true;
for p:=2 to round(sqrt(i)) do
 if i mod p=0 then
  s:=false;
   if s then
   begin
    write(i:3);
    inc(kol);
   end;
end;
writeln;
writeln('Kol:=',kol);
readln
end.

program zd;
uses crt;
var m,n,i,p,g:integer;
            s:boolean;
begin
clrscr;
writeln('m and n');
readln(m,n);
for i:=m to n do
 begin
  s:=true;
  g:=i;
  for p:=2 to g div 2 do
  if g mod p=0 then
   begin
    s:=false;
    break;
   end;
  if s then
  write(g,' ');
 end;
readln
end.