RosettaCodeData/Task/Fibonacci-sequence/PascalABC.NET/fibonacci-sequence.pas
2023-07-01 13:44:08 -04:00

4 lines
117 B
ObjectPascal

// Fibonacci sequence. Nigel Galloway: August 30th., 2022
begin
unfold(nFib,0bi,1bi).ElementAt(1000).Println;
end.