function fPt1000: Real; // функция для датчика термосопротивления PT1000
    var_input //объявление входных переменных
        R:Real;
    end_var

    var //объявление локальных переменных
        RtR0: Real;
        R0: Real:= 1000;
        A:  Real:= 0.0039083;
        B:  Real:= -5.775E-07;
        D1: Real:= 255.819;
        D2: Real:= 9.14550;
        D3: Real:= -2.92363;
        D4: Real:= 1.79090;
    end_var


//PRG
    RtR0:= R/R0;
    if R>R0 then
        fPt1000:=(pow((A*A-4*B*(1-RtR0)),0.5)-A)/(2*B);
    else
        fPt1000:=fPol_4((RtR0-1),4,0,D1,D2,D3,D4); //вызов функции "fpol_4"
    end_if
end_function