Пожалуйста посчитайтенаписать программу в Паскале

begin
  var (a,b,x,c):=(10.2,9.2,2.2,0.5);
  var f:=Ln(a+x*x)+Sqr(Sin(x/b));
  var z:=Exp(-c*x)*(x+sqrt(x+a))/(x-Sqrt(Abs(x-b)));
  Writeln('f=',f,', z=',z)
end.


f=2.76681498092073, z=-4.27250886022099