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

function Fib(n: integer): integer;

begin

 if n < 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.