Pai daca tia dat problema despre algoritmul lui eratostene, deci trebuie sa stii ce reprezinta el.
In general folosim un vector de frecventa iar la fiecare numar eliminam divizorii sai, in final afisind argumentele care au valoare ne eliminata.
var
a:array[2..200] of integer;
i,j,n:integer;
begin
read(n);
for i:=2 to n do
a[i]:=1;
for i:=2 to n do
for j:=2 to n div i do
a[i*j]:=0;
for i:=2 to n do
if a[i]<>0 then
write(i,' ');
end.
