вычислить числа последовательности F и их порядковые номера расположенные в интервале от числа N1 и до N2

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