fork download
copy 
  1. var A,B,C : integer;
  2. begin 
  3. if ( A=2) or (A=4) or (A=6) or (A=8) and (B=1) or (B=3) or (B=5) or (B=7) or (B=9) and (C=1) or (C=3) or (C=5) or (C=7) or (C=9) then begin 
  4. write ('YES');
  5. end;
  6. if ( A=2) or (A=4) or (A=6) or (A=8) and (B=2) or (B=4) or (B=6) or (B=8) and (C=2) or (C=4) or (C=6) or (C=8) then begin 
  7. write ('NO');
  8. end;
  9. if ( A=1) or (A=3) or (A=5) or (A=7) or (A=9) and (B=1) or (B=3) or (B=5) or (B=7) or (B=9) and (C=1) or (C=3) or (C=5) or (C=7) or (C=9) then begin 
  10. write ('NO');
  11. end;
  12. if ( A=1) or (A=3) or (A=5) or (A=7) or (A=9) and (B=2) or (B=4) or (B=6) or (B=8) and (C=1) or (C=3) or (C=5) or (C=7) or (C=9) then begin 
  13. write ('YES');
  14. end;
  15. if ( A=1) or (A=3) or (A=5) or (A=7) or (A=9) and (B=2) or (B=4) or (B=6) or (B=8) and (C=2) or (C=4) or (C=6) or (C=8) then begin 
  16. write ('YES');
  17. end;
  18. if ( A=2) or (A=4) or (A=6) or (A=8) and (B=2) or (B=1) or (B=3) or (B=5) or (B=7) or (B=9) and (C=2) or (C=4) or (C=6) or (C=8) then begin 
  19. write ('YES');
  20. end;
  21. if ( A=1) or (A=3) or (A=5) or (A=7) or (A=9) and (B=1) or (B=3) or (B=5) or (B=7) or (B=9) and (C=2) or (C=4) or (C=6) or (C=8) then begin 
  22. write ('YES');
  23. end;
  24. end.
  25.  
  26.  
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/WJA2su
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!