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