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

program z2;var b, t, x, y, z: real;beginb:= ...; //задаем bz:=sqrt(abs(sin(abs(b))));if(b>1) then t:=b*belse 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.