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

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.