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.
|