Решите на Паскале данное уравнение(номер 22), буду благодарен

//PascalABC.NET 3.3.5.1644

var c, d, x, y: real;
begin
  c := 2;
  d := -2.5;
  x := 2;
  y :=  ( ( tan(x)/ln(x) ) + (x/c)  ) / abs( d * x );
  writeln('При x = ', x, ', y = ', y);
  x := 3;
  y :=  ( ( tan(x)/ln(x) ) + (x/c)  ) / abs( d * x );
  writeln('При x = ', x, ', y = ', y);
end.