The_Law

Untitled

Dec 13th, 2017
268
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  1. program lol;
  2.  
  3. function Max(a,b,c:integer):integer;
  4. var mx:integer;
  5. begin
  6. if a>b then mx:=a else mx:=b;
  7. if c>mx then mx:=c;
  8. Max:=mx
  9. end;
  10.  
  11. var
  12.     a, b, c, maxel: integer;
  13.  
  14. begin
  15.     read(a, b, c);
  16.    
  17.     maxel := Max(a, b, c);
  18.     if 2 * maxel < a + b + c then
  19.     writeln(True)
  20.     else
  21.     writeln(False);
  22.    
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment