Провести вычисления по указанным формулам - Turbo Pascal

uses crt;
const xn=0.2;
      dx=0.3;
      xk=1.7;
      b=2;
      a=0.037;
var x,t1,t2,y:real;
begin
clrscr;
x:=xn;
repeat
t1:=sqrt(x*x+b*b/exp(x));
t2:=(ln(x+1)+ln(b))/(sqr(sin(x))+sqr(cos(b)));
y:=1.5*t1/(t2+a);
writeln('x=',x:4:1,' y=',y:6:3);
x:=x+dx;
until x>xk+dx/2;
readln
end.