Помогите пожалуйста, дам 25 баллов​

Question

Помогите пожалуйста, дам 25 баллов​

---

Answer 1

Ответ:

есть

Объяснение:

program function_g;

var

 g, x: real;

begin

 Write('Введите значение х = ');

 ReadLn(x);

 if x > 0 then

   g := sqrt(1 + (2 * x) / (1 + sqr(x)))

 else

   g := (3 * sqr(x)) / (1 + sqr(x));

 WriteLn('g = ', g);

end.