function fSensorErr: bool; // Определение неисправности датчика (PT1000,PT500,NTC10k)
    var_input
        T:Real;
        conf_Sens: udint; // 0 - PT1000, 1 - PT500, 2 - NTC10k, 3 - 4..20mA
        R: Real;
    end_var

    var
        lv_V_Max: array [0..2] of real:= [870.0, 870.0, 180.0];
        lv_V_Min: array [0..2] of real:= [-220.0, -220.0, -70.0];
    end_var
//PRG
case conf_Sens of
    0, 1, 2:
        fSensorErr :=  T>lv_V_Max[conf_Sens] or T<lv_V_Min[conf_Sens];
    3:
        fSensorErr := fSens420_Err(R); // вызов функции "fSens420_Err"
    else
        fSensorErr:=false;
end_case
end_function