Решить задание ** Pascal.

Question

Решить задание на Pascal.

---

Answer 1

// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (x, y) := ReadReal2;

 var z := x < 0 ? Max(x, y) : Min(x, y);

 z.Println

end.

---