26 lines
350 B
ObjectPascal
26 lines
350 B
ObjectPascal
{ Prints Fibonacci Number supplied }
|
|
program Fib2;
|
|
|
|
const
|
|
ZERO = 1;
|
|
ONE = 1;
|
|
|
|
var
|
|
input: word;
|
|
|
|
function Fib (n: word): NativeUInt;
|
|
begin
|
|
case n of
|
|
0: Fib := 0;
|
|
1, 2: Fib := 1;
|
|
else Fib := Fib(n - 2) + Fib(n - 1)
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
write('Which Fibonacci number would you like? ');
|
|
readln(input);
|
|
|
|
WriteLn(Fib(input));
|
|
end.
|