[M.A.D.M.A.N.]

Код:

function LnEx(x: extended; out res: extended): boolean;
begin
  if x <= 0.0 then
    Exit(False);
  res := Ln(x);
  Result :- True;
end;