function fMinR: Real; // Возвращает min из двух значений, тип FLOAT
    var_input
        I0,I1 : Real; // Входные значения
    end_var

//PRG
    if I0>I1 then
        fMinR:=I1;
    else
        fMinR:=I0;
    end_if
end_function