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

Question

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

Comments

для ответа достаточно только числа b, если больше нуля то х, если меньше то У

Answer 1

Var
    x, y, a, b: real;

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