var x,y: Real;
begin
writeln('Введите значение x');
readln(x);
if(x<=2) then y:= x*x+4*x+5 else y:= 1/(x*x+4*x+5);
writeln('F(x) = ', y);
end.
var x,y: Real;
begin
writeln('Введите значение x');
readln(x);
if(x<=2) then y:= x*x+4*x+5 else y:= 1/(x*x+4*x+5);
writeln('F(x) = ', y);
end.