Question

Информатика ( задание на фото) помогите!!!

Answer 1

var

 x, f: real;

begin

 read(x);

 if x <= 2 then f := x*x + 4*x + 5

 else f := 1 / (x*x + 4*x + 5);

 writeln(f);

end.