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