Помогите записать пример(Рис.1) на языке Паскаль, по типу(Рис.2)

var x,t,y,y1,y2:real; begin write('x = '); readln(x); write('t = '); readln(t); y1:=(exp(-sqrt(x))*cos(x)+10)/(cos(t*sin(t))+10); y2:=1/ln(abs(x*x*x*x*x+t*t*t*t*t)); y:=y1*y2; writeln('y = ',y:6:3); end. Пример: x = 1.5 t = 0.9 y =  0.443