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

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.