function fNTC: Real; // Универсальный датчик типа NTC, необходимо указывать R0 и B25/100
    var_input
        R:real;
        R0:Real;
        B:Real;
    end_var

//PRG
    fNTC:=1/(1/298.15+1/B*fLn(R/R0))-273.15; // вызов функции "fLn"
end_function