function fLn: Real; //Натуральный логарифм
    var_input 
        X:real;
    end_var

//PRG
fLn:=0.6931472*fLb(x); //вызов функции "fLb"
end_function