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

//PRG
if In1<In2 then
    fMaxI:=In2;
else
    fMaxI:=In1;
end_if;
end_function