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

//PascalABC.NET 3.3.5.1644var 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.