var
  a, b, c: Biginteger;
  i, n: integer;

begin
  a := 1;
  b := 1;
  Write(a, ' ', b, ' ');
  n := 10;
  i := 3;
  repeat
    c := a + b;
    a := b;
    b := c;
    Write(c, ' ');
    i := i + 1;
  until i > n;
  
  Writeln;
  
  a := 1;
  b := 1;
  Write(a, ' ', b, ' ');
  n := 15;
  i := 3;
  while i <= n do
  begin
    c := a + b;
    a := b;
    b := c;
    Write(c, ' ');
    i := i + 1
  end
end.