===== PascalABC.NET =====
function Max4(a, b, c, d: real) := Max(Max(a, b), Max(c, d));
begin
var x := ReadReal('x =');
var y := Sqr(x - 3);
var z := 1 + 2 ** x;
var k := 6 - x * x * x;
var g := Sqr(x) + 1 / Sqr(x);
Println(Max4(y, z, k, g))
end.
