Ввести 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.