Вычислить значение функции. Значение переменной х вводим с клавиатуры:
(Паскаль)

var

x:real;

begin

readln(x);

if x <= 2 then

 writeln('F(x) = ', (x*x + 4*x + 5):5:2)

else writeln('F(x) = ', (1 / (x*x + 4*x + 5)):5:2);

end.