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

//PRG
    if I0<I1 then
        fMaxR:=I1;
    else
        fMaxR:=I0;
    end_if
end_function