allekco

Untitled

Nov 21st, 2019
83
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2. a, b, c:integer;
  3. begin
  4. readln(a,b,c);
  5. if ((a + b > 0) or (a + c > 0) or (b + c > 0)) then
  6. begin
  7. writeln('YES');
  8. end
  9. else
  10. begin
  11. writeln('NO');
  12. end;
  13. end.
RAW Paste Data