Помогите пожалуйста написать текст программы ** языке паскаль

Question

Помогите пожалуйста написать текст программы на языке паскаль

---

Answer 1

Program z2;
var b, t, x, y, z: real;
begin
b:= ...; //задаем b
z:=sqrt(abs(sin(abs(b))));
if(b>1) then t:=b*b
else t:=exp(b);
x:=(b*sqrt(z+1))/(t*z+1);
y:=b*ln(sqrt(x+t)+sqrt(x)) - sqrt(x*x+t*x);
writeln('y = ',y);
end.