Срочно нужна помощь! Программа в Паскаль

Номер 18.1

Program n_1;

uses math;

var x, y, z, a: double;

begin

   x:=1.542;

   y:=-3.261;

   z:=80.005;

   a:=ln(sqrt(exp(x-y)+x*abs(y)+z))/ln(10);

   writeln(a:0:2);

end.

Номер 18.2 (x - радианная мера угла)

Program n_2;

uses math;

var x, b: double;

begin

   x:=1.542;

   b:=(x/sin(x))-(x*x*x)/(sin(x)*sin(x)*sin(x))+(x*x*x*x*x)/(sin(x)*sin(x)*sin(x)*sin(x)*sin(x));

   writeln(b:0:2);

end.