Задать с условного оператора следующие действия: большее из двух заданных чисел уменьшить на 5.​

PascalABC.NET:

### var (x, y) := RR2; if x>y then x-=5 else if y>x then y-=5; Print(x, y)

[any] Pascal

var x, y: real; begin read(x, y); if x>y then x := x - 5 else if y>x then y := y - 5; write(x, ' ', y) end.