Написать x, y, z на языке паскаль

program xyz;

var x,y,z,a,b,c:real;

begin

 readln(x,y,z);

 x:=(sqrt(a)+b)/2*a;

 y:=sqrt(abs((3*x+4)/(1-2*x)));

 z:=abs(sqr(Cos(x)))/(Ln(1+y));

 writeln(z);

end.