Program Boolean34;
Var
x, y: Integer;
Begin
ReadLn(x, y); { если (y+x) mod 2=0 то поле черное, иначе - поле белое }
WriteLn(Not((y + x) Mod 2 = 0));
end.
Program Boolean34;
Var
x, y: Integer;
Begin
ReadLn(x, y); { если (y+x) mod 2=0 то поле черное, иначе - поле белое }
WriteLn(Not((y + x) Mod 2 = 0));
end.