--- PascalABC.NET 3.6.2 ---
begin
var func: real -> real := x -> (x ** 2) + 4*x + 5;
var x := ReadInteger();
println( x <= 2 ? func(x) : 1/func(x));
end.
Объяснение:
