RosettaCodeData/Task/Fibonacci-sequence/PascalABC.NET/fibonacci-sequence.pas

5 lines
117 B
ObjectPascal
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
// Fibonacci sequence. Nigel Galloway: August 30th., 2022
begin
unfold(nFib,0bi,1bi).ElementAt(1000).Println;
end.