{
TASK: lift
LANG: Pascal
}
Program Lift;
 Var H, W: Array[1..15] of Integer;
     N, T, I: Integer;
 Begin
  ReadLn(N, T);
  For I := 1 to N do ReadLn(H[I], W[I]);
  If N mod 2 = 1 then WriteLn(3*H[2])
                 else WriteLn(0);
 End.