Напишите нерекурсивную функцию Фибоначи

Что она обязана принимать в качестве характеристик и что отдавать?

Просто такое задание дали, я и сам не понимаю что делать. Тупые учебники пошли

Больше ничего не дано

Но сдавать ведь задание Для вас, поэтому Вы обязаны обусловиться, каким обязано быть решение.

Можно, к образцу, вычислять число Фибоначчи с номером N. А можно получать весь набор чисел Фибоначчи, включая число с номером N

Ну давайте только с номером N

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программка не работает, обновите версию!

function Fib(n: integer): integer;

begin

 if n lt; 3 then Result := 1

 else

 begin

   var (a, b) := (1, 1);

   for var i := 3 to n do

     (a, b) := (a + b, a);

   Result := a

 end

end;

begin

 for var i := 1 to 10 do Fib(i).Print; // контрольный пример

end.

1 1 2 3 5 8 13 21 34 55