Advertisement
Nafsikaya

Untitled

Feb 23rd, 2019
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. var
  2.   w,b,n,k : longint;
  3. begin
  4.   readln(w);
  5.   readln(b);
  6.   readln(n);
  7.   k:=0;
  8.   if (1<=w)and(w<=10000) then
  9.   if (1<=b)and(b<=10000) then
  10.   if (1<=n)and(n<=10000) then
  11.   if n<=w+b then k:=1;
  12.   if (k>0) then writeln('YES')
  13.   else writeln('NO');
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement