Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a, b, c: integer;
- begin
- ReadLn(a, b, c);
- WriteLn((a + ((b + c - Abs(b - c)) / 2) - Abs(a - ((b + c - Abs(b - c)) / 2))) / 2, #9, a + b + c - ((Abs(2 * c - Abs(b - a) - b - a) + 2 * c + Abs(b - a) + b + a) / 4) - ((a + ((b + c - Abs(b - c)) / 2) - Abs(a - ((b + c - Abs(b - c)) / 2))) / 2), #9, (Abs(2 * c - Abs(b - a) - b - a) + 2 * c + Abs(b - a) + b + a) / 4);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement