{
TASK:fib
LANG:PASCAL
}

var
  n,m: Longint;
  i: Longint;
  a,b,c: Longint;

begin
  readln(n,m);
  a:= 1;
  b:= 1;
  c:= 0;

  for i:= 3 to n do
  begin
    c:= (a+b) mod m;
    a:= b;
    b:= c;
  end;
  writeln(c mod m)
end.