Buna ziua ! Sunt incepator si am tendinta sa ma "scarpin" cam ciudat, adica ma incurc cu variabile inutile uneori. Aveti idei de optimizare a urmatorului cod ?
program ciurul_lui_Eratostene;
var v1,v2:array[2..1000000] of longint;
nr,i,j:longint;
f:text;
begin
assign(f,'ciur.in');
reset(f);
readln(f,nr);
close(f);
for i:=2 to nr do
v1[i]:=i;
for i:=2 to nr do
begin
if(v2[i]=0) then
begin
for j:=2 to nr do
begin
v2[i*j]:=1;
end;
end;
end;
end.