program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var x: real;
begin
    write('Please Enter x: ');
    readln(x);
    if x <= 0 then begin
        writeln('x <= 0, then x is out of range');
    end 
    else begin
        writeln('ln(', x:8:3, ') =', ln(x):8:3);
    end;
    readln
end.