Вычислить значение выражения

uses crt;
var x,y,z:real;
begin
x:=0.5;
z:=sqr(sin(x))/sqrt(1-sqr(sqr(sin(x))));
y:=exp(ln(arctan(z))*x);
write('Y=',y:0:4);
end.

uses crt;
var x,y:real;
begin
x:=0.5;
y:=exp(ln(arctan(sin(sqr(x))/sqrt(1-sqr(sin(sqr(x))))))*x);
write('Y=',y:0:4);
end.

uses crt;
var x,y:real;
begin
x:=0.5;
y:=exp(ln(sqr(x))*x);
write('Y=',y:0:4);
end.

uses crt;
type tvector=record
                           x:real;
                           y:real;
                           z:real;
                   end;
var a,b,c,h:tvector;
      v:real;
procedure vrnd(var v:tvector; d:real;)
begin
       v.x:=random()*d-d/2;
       v.y:=random()*d-d/2;
       v.z:=random()*d-d/2;
end;
procedure vout(c:char, v:tvector);
begin
       writeln(c,'.x=',v.x:10:4,' ',c,'.y=',v.y:10:4,' ',c,'.z=',v.z:10:4);
end;
begin
       vrnd(a,10);
       vrnd(b,10);
       vrnd(c,10);
       vout('a',a);
       vout('b',b);
       vout('c',c);
       h.x:=a.y*c.z-a.z*c.y;
       h.y:=a.z*c.x-a.x*c.z;
       h.z:=a.x*c.y-a.y*c.x;
       v:=abs(h.x*c.x+h.y*c.y+h.z*c.z);
       writeln('v=',v:10:4);
end.

procedure vrnd(var v:tvector; d:real);