Составить программу в паскале: вывести все простые числа в диапазоне от 1 до n, используя циклические конструкции.

Program n1;
Uses CRT;
VAR n,i,k,j: integer;
begin
clrscr;
writeln('vvedite n');
Readln(n);
Writeln('Prostye chisla');
writeln;
For i:=3 to n do
begin
For j:=2 to i-1 do
If i mod j=0 then k:=k+1;
If k=0 then writeln(i);
k:=0;
end;
readln
end.