Помогите домашку решить)

Question

Помогите домашку решить)

---

Answer 1

var
  x: real;

begin
  readln(x);
  write('Z = ');
  if (x = 0) then
    writeln(1)
  else
    if (x > 0) then
      writeln(2 * sin(x) * cos(4 * x))
    else
      writeln(1 - power(abs(x - 3), 1 / 3));
end.