Специально для Вас, Антон.
Owen.jpg

Код:
function Ust: udint;
    var_input 
        tm : udint; 
    end_var
    
    Ust := 0;
    if tm > 0   then Ust := tm * 50 / 30; end_if
    if tm > 30  then Ust := 50; end_if
    if tm > 90  then Ust := 50 + (tm - 90) * 50 / 30; end_if
    if tm > 120 then Ust := 100; end_if
    if tm > 180 then Ust := 100 + (tm - 180) * 10 / 30; end_if
    if tm > 210 then Ust := 110; end_if
    if tm > 300 then Ust := 110 + (tm -300) * 20 / 30; end_if
    if tm > 330 then Ust := 130; end_if
    if tm > 420 then Ust := 130 + (tm - 420) * 20 / 30; end_if
    if tm > 450 then Ust := 150; end_if
    if tm > 560 then Ust := 0; end_if
 
end_function