function fMinI: Udint; // Возвращает min из двух значений, тип INT
    var_input
        In1,In2 :Udint; // Входные значения
    end_var

//PRG
if In1>In2 then
    fMinI:=In2;
else
    fMinI:=In1;
end_if;
end_function