31 lines
388 B
ObjectPascal
31 lines
388 B
ObjectPascal
|
{ Prints Fibonacci sequence up to 10th number }
|
||
|
program Fib;
|
||
|
|
||
|
const
|
||
|
ZERO = 1;
|
||
|
ONE = 1;
|
||
|
|
||
|
var
|
||
|
i, prev, min2, this: integer;
|
||
|
|
||
|
begin
|
||
|
// 0 and 1 are pre-defined, so start at 2
|
||
|
i := 2;
|
||
|
write('1 1');
|
||
|
prev := ONE;
|
||
|
min2 := ZERO;
|
||
|
|
||
|
while i < 11 do
|
||
|
begin
|
||
|
this := prev + min2;
|
||
|
min2 := prev;
|
||
|
prev := this;
|
||
|
|
||
|
write(' ', this);
|
||
|
|
||
|
i := i + 1;
|
||
|
end;
|
||
|
|
||
|
writeln;
|
||
|
end.
|