3070Fibonacci{矩阵快速幂}

{N久以前的一道题，今天终于水过了啊。。。这个矩阵好神奇啊}

type node=array[1..2,1..2] of longint;

const

  max=10000;

var

  n:longint;

  a:node;

function init:boolean;

begin

  read(n);

  if n=-1 then exit(false);

  a[1,1]:=1;

  a[1,2]:=1;

  a[2,1]:=1;

  a[2,2]:=0;

  exit(true);

end;

function mul(a,b:node):node;

begin

  mul[1,1]:=(a[1,1]*b[1,1]+a[1,2]*b[2,1]) modmax;

  mul[1,2]:=(a[1,1]*b[1,2]+a[1,2]*b[2,2]) modmax;

  mul[2,1]:=(a[2,1]*b[1,1]+a[2,2]*b[2,1]) modmax;

  mul[2,2]:=(a[2,1]*b[1,2]+a[2,2]*b[2,2]) modmax;

end;

function ksm:node;

const

  OO:node=((1,0),(0,1));

begin

  ksm:=OO;

  if n=0 then exit(OO);

  while n<>0 do

    begin

      if nand 1=1 then ksm:=mul(ksm,a);

     a:=mul(a,a);

      n:=nshr 1;

    end;

end;

begin

  while true do

    begin

      ifinit then writeln(ksm[1,2])

      elsebreak;

    end;

end.