program virbas;
  { 7 u‘davinys }
{----------------------------------------------------------}
  function pjaustyti (n : integer) : integer;
    var kiek,          { ¨ kiek dali— galima supjaustyti }
        d1, d2,        { dviej— atpjaut— dali— ilgiai ir }
        dal : integer; { dabar bandoma pjauti dalis }
  begin
    d1 := 1; { pirmos dvi dalys }
    d2 := 1; { imamos vienetinio ilgio }
    n := n - (d1 + d2); { jau atpjautos }
    kiek := 2;
    dal := d1 + d2;
    while n >= dal do
      begin
        n := n - dal;
        kiek := kiek + 1;
        d1 := d2;
        d2 := dal;
        dal := d1 + d2 { nauja dalis }
     end;
    pjaustyti := kiek
  end;
{----------------------------------------------------------}
  var n : integer;
begin
  write ('­veskite n: ');
  readln (n);
  writeln (pjaustyti(n))
end.