срочно пж в pascal abc

Var
   y,x:real;
Begin
Write('x = ');
Read(x);
if (1<=x)and(x<=3) then y:=x/2*power(abs(1+x),1/3)
else if x>3 then y:=sin(2*x)/(2+cos(3*x));
Write('f(',x,') = ',y);
End.