program faktorialas_ir_trejeto_laipsnis;
  { 20 u‘davinys }
  function laipsnis (n : integer) : integer;
    var l : integer;
  begin
    l := 0;
    while n > 2 do
      begin
        n := n div 3;
        l := l + n
      end;
    laipsnis := l
   end;
   var n : integer;
begin
  write ('ôveskite duotÝ skaißiù: ');
  readln (n);
  writeln (laipsnis (n))
end.

