You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
223 B
Plaintext
23 lines
223 B
Plaintext
6 years ago
|
program fib;
|
||
|
|
|
||
|
|
procedure fibit;
|
||
|
|
var
|
||
|
|
a, b, c: QWord;
|
||
|
|
i : Integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
a := 1;
|
||
|
|
b := 1;
|
||
|
|
c := 1;
|
||
|
|
for i := 0 to 90 do
|
||
|
|
begin
|
||
|
|
c := b;
|
||
|
|
b := a + b;
|
||
|
|
a := c;
|
||
|
|
WriteLn(b);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
fibit;
|
||
|
|
end.
|