Срочно пж в pascal abc

Question

Срочно пж в pascal abc

---

Answer 1

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)<br>else if x>3 then y:=sin(2*x)/(2+cos(3*x));
Write('f(',x,') = ',y);
End.