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

5 lines
117 B
ObjectPascal

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