Чет про программирование / практика / 15) Решето Эратосфена

Решето Эратосфена

var

a: array of Integer;

i, n, j: integer;

Begin

Read(n);

SetLength(a, n+1);

for i := 2 to n do begin

if a[i] = 1 then Continue;

write(i, ' ');

for j := i+1 to n do

if j mod i = 0 then

a[j] := 1;

end;

readln;

readln;

end.