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

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.