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

Var x,y,f,z,a:real;
begin
write('Введите 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 <br>  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))

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