Паскаль. написать программу по формуле:

PascalABC.NET

begin

 var x := ReadReal('x =');

 var y := 2 * (x + 3) + Sqr(3 / (1 - 4 * x));

 Println(y)

end.

Примечание. При х = 0.25 в знаменателе образуется ноль. В этом случае программа выдаст значение Infinity (бесконечность).