Даны два числа. Если больше первое число, то заменить его ** сумму этих чисел. Если...

Question

Даны два числа. Если больше первое число, то заменить его на сумму этих чисел. Если больше второе, то заменить его на полусумму этих чисел

Answer 1

Var a, b:real;beginreadln (a, b);if a=b then writeln ('ERROR') else if a>b then writeln (a+b) else writeln ((a+b)/2);end.