Ввести A,b. Вычислить x=A+B; y=A-B. Найти наибольшее из чисел x,y

var     x, y, a, b: real; begin     readln(a, b);     if (a + b) > (a - b) then         writeln('x')     else writeln('y'); end.