Паскаль АВС: написать программу вывод простых чисел, с помощью массива.

var P: array[2… 100000] of boolean; i, n, pr: integer; flag: boolean; begin write ('max='); readln (n); for i: =2 to n do P[i]: =true; pr: =2; flag: =true; while flag do begin i: =2*pr; while i <= n do begin P[i]: =false; i: =i+pr; end; flag: =false; for i: =pr+1 to n do if P[i] then begin pr: =i; flag: =true; break; end; end; for i: =10 to n do if P[i] then writeln (i); readln; end.