var
i,j,m:longint;
f,k:boolean;
begin
writeln('введите начало и конец отрезка');
readln(i,m);
k:=false;
for i:=i to m do
begin
f:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then
begin
f:=false;
break;
end;
if f then
begin
write(i,' ');
k:=true;
end;
end;
if not k then writeln('Простых чисел на отрезке нет');
readln;
end.
Следующий вариант
var
i,j,f,m:longint;pr:boolean;
begin
writeln('введите начало и конец отрезка');
readln(i,m);
pr:=true;
for i:=i to m do
begin
f:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then f:=1;
if f=0 then begin write(i,' ');pr:=false;end;
end;
if pr then writeln('Нет простых чисел');
readln;
end.