Помогите решить систему уравнений и записать в паскале! на картинке № 9, там 3 системы.

var   x,y,f,z,a:real;beginwrite('Введите x,z: ');readln(x,z);if x>13 then f:=-3/(x+1)   else f:=-(x*x*x)+9;if x<1 then y:=x*x   else    if x>1 then y:=x*x*x      else y:=x;if x>z then a:=y*z*z/(3+power(2,3/5))  else a:=2*cos(x+z);writeln('F(x)=',f);writeln('Y=',y);writeln('A=',a);end.Если функции power нет, то вместоif x>z then a:=y*z*z/(3+power(2,3/5))напечататьif x>z then a:=y*z*z/(3+exp(3/5*ln(2))