Составьте в тетради программу на языке программирования Паскаль. В качестве ответа прикрепите фото программы в тетради!

var  x, y: real;begin  write('x = ');  readln(x); if (x <= 2) then y := sqr(x) + 4 * x + 5  else y := 1 / (sqr(x) + 4 * x + 5);  writeln('F(x) = ', y);end.