Вычислить числа последовательности f и их порядковые номера расположенные в интервале от числа n1 и до n2

Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;end.