Var R, Z, i, j, Q, answer: longint;
    A : array[1..1000, 1..1000] of real;
    X : real;
Begin
    readln(X);
    readln(Q);
    answer := 0;
    for i := 1 to R do
        for j := 1 to Z do
            if ((A[i,j] < -X) or (A[i,j] > X)) and (i - j > 0) and (((i - j) mod Q) mod 2 = 1) then
                answer := answer + 1;
    writeln(answer);
End.