===== PascalABC.NET =====
begin
var a := ReadArrInteger(3);
a.Println;
var (mx, mn) := (a.Max, a.Min);
a.Transform(p -> p = mn ? mx : p);
a.PrintLines
end.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a, b, c, d: real;
Read(a,b,c,d);
Println('1)', a + b + c + d);
Println('2)', a * b * c * d);
Println('3)', a * a - d * d);
Println('4)', Sqrt(a * b * c));
Println('5)', d + b - b * c)
end.
<h2>Пример</h2><h3>23.43 -152.18 -0.13 15</h3><h3>1) -113.88 </h3><h3>2) 6952.87593 </h3><h3>3) 323.9649 </h3><h3>4) 21.5296321845033 </h3><h3>5) -156.9634 </h3>