This is my code...

CONST
 MaxN = 10000000;

VAR
 K, P : Longint;
 A    : Array [1 .. MaxN] of Longint;

PROCEDURE Solve;
 Var
  i : Longint;
   Begin
    A[1] := 0;
    A[2] := 1;
     for i := 3 to K do
      if i mod 2 = 0 then
        A[i] := (A[i - 1] + A[i div 2]) mod P
          else
        A[i] := A[i - 1] mod P;
   End;

PROCEDURE Run;
   Begin
    ReadLn(K, P);
    Solve;
    WriteLn(A[K]);
   End;

BEGIN
  Run;
END.

Were my mistake is?

Sorry for my bad english...