Даны действительные а,b,с,d. Получить min(a,b) + max(a,b,c) ____________________ 1+max(a,b,c,d)

//PascalABC.NET 3.2 сборка 1318 Var  a,b,c,d:real; begin readln(a,b,c,d); writeln((min(a,b)+max(max(a,b),c))/(1+max(max(max(a,b),c),d))); end. Пример ввода: 1 2 3 4 Пример вывода: 0.8