Программа

Program Pilshikov_4_10_1 (input,output);
{ Для заданного числа "a"
  поиск корня уравнения F(x)=0, где
        ┌
        │ 2ax+│a-1│         при a>0,
  F(x)= │        ┌────┐
        │ exp(x)/√1+a¤ -1   иначе;
        └                           }
Var
  a:real;
BEGIN
  write('Введите "a" ');
  readln(a);
  if a>0 then writeln('x=',-abs(a-1)/2/a)
         else writeln('x=',Ln(sqrt(1+sqr(a))))
END.