Algoritmo para escrever os números pares entre 1 a 1000

//Faça um algoritmo para escrever os números pares entre 1 a 1000

program pares1_1000;

var i,j:integer;

begin

j:=0;

for i:=1 to 1000 do

begin

j:=2*i;

write(j,',');

end;

readln;

end.