Para conteo de números

program repita;
uses wincrt;
var
i,n,n1:integer;
begin
writeln('ingresa el numero inicial');
readln(n1);
writeln('ingresa el numero final');
readln(n);
for i:= n1 to n do
writeln('el numero es: ',i);
end.