Question

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

Answer 1

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.