Программа для вывода всех простых чисел из диапазона

program prak;
uses crt;
var n,k,i:integer;
begin
clrscr;
write('Введите целое число n=');
readln (n);
for i:=2 to n do
if n mod i=0 then n:=n+1;
if n=0 then
writeln('n=',n);
end.

program prak;
uses crt;
var n,k,i,t:integer;
begin
clrscr;
write('Введите целое число n=');
readln (n);
for i:=2 to n do begin {Во внешнем ты берёшь по очереди одну из цифр от 2 до n}
   t:=0;
   for k:=2 to n do 
       if i mod k=0 then t:=t+1; {а во внутр. делишь эту цифру на все цифры от 2-х до неё самой}
   if t=1 then write(i:3); {и если число имеет только один делитель то оно - простое}
end;
readln;
end.

   for k:=2 to trunc(sqrt(n)) do 
       if i mod k=0 then t:=t+1; {а во внутр. делишь это число на все числа от 2 до корня из этого числа}
   if t=0 then write(i:3); {и если число на этом интервале не имеет делителей, то оно простое}

for k:=2 to trunc(sqrt(i)) do

for i:=2 to n do begin
 t:=0; k:=2;
 while (t=0) and (k<=trunc(sqrt(i))) do
  begin
   if i mod k=0 then t:=1;
   k:=k+1;
  end;
 if t=0 then write(i,' ');
end;

for i:=2 to n do begin
 t:=0; k:=2; p:=trunc(sqrt(i));
 while (t=0) and (k<=p)do
  begin
   if i mod k=0 then t:=1;
   inc(k)
  end;
 if t=0 then write(i,' ');
end;

  for i := 2 to n do
    begin
      t := 0;
      for k := 2 to trunc(sqrt(i)) do
        if i mod k = 0
          then begin
            inc(t);
            break
          end;
      if t = 0 then write(i:3);
    end;