Algoritmo para escrever os números entre 1 e 1000

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



program um_a_mil;

var i:integer;

begin

for i:=1 to 1000 do

begin

write(i,',');

end;

readln();

end.