Сделать в pascal вычислите выражение при заданных константах: a=10.2; b=9.2; x=2.2; c=0.5;

Varf,z:real;consta=10.2;b=9.2;x=2.2;c=0.5;beginf:=ln(a+sqr(x))+sqr(sin(x/b));writeln('f= ',f);z:=exp(-c*x*ln(e))*(x+sqrt(x+a))/(x-sqrt(abs(x-b)));writeln('z= ',z);end.