Дополнить программу

var
   i,j,f,m:longint;
begin
   writeln('введите начало и конец отрезка');
   readln(i,m);
   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 write(i,' ');
        end;
   readln;
end.

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.