freepascal.compiler/tests/webtbs/tw34653.pp

{ %OPT=-O2 }
var d: LongInt;
begin
    WriteLn;

    d := 828;
    if ((d mod 2) = 0) xor ((d < 0) and ((d mod 3) = 0)) then
      WriteLn('YES')
    else
      begin
        WriteLn('NO');
        halt(1);
      end;

    if ((d mod 2) = 0) xor ((d < 0) and ((d mod 3) = 0)) then
        WriteLn('YES')
    else
      begin
        WriteLn('NO');
        halt(1);
      end;
end.