Написать программу для решения следующей : для заданного а вычислить принадлежащий интервалу (pi,2pi) корень уравнения ln ( ctg(x) - 1 ) = a

Var x, a : real;

begin
  readln(a);
 
  x := arctan(1/(power(E, a) + 1)) + PI;
 
  writeln(x);
end.