Вычислить значение функции

Question

Вычислить значение функции

---

Answer 1

const
  pi = 3.18;
  k = 2.7;
var
  f, x: real;
begin
  write('x = ');
  read(x);
  if x < -pi / 2 then writeln('f(x) = ', (2 * sqr(sin(x / 2)) / x));
  if x >= -pi / 2 then writeln('f(x) = ', exp(sqr(x)) + cos(2 * k * x));
end.