Помогите,я вас очень прошу(((( Ибо 2 получу. Она мне не нужна( Pascal

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b,x):=(Sqrt(3),Tan(Pi/5),Log10(7));  var z:real;  if x<b then z:=ArcCos(a*a/(a*a+x*x))  else    if x=b then z:=Ln(2+Cos(b*x))    else z:=Abs(Tan(b*x))+2**(-a*x);  Writeln('z(x)=',z)end.