Составить программу в ПАСКАЛЕ: Вывести все ПРОСТЫЕ числа в ...

Нюра

Program n1;Uses CRT;VAR n,i,k,j: integer;beginclrscr;writeln('vvedite n');Readln(n);Writeln('Prostye chisla');writeln;For i:=3 to n dobegin 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;readlnend.