Рабочий день и ставка

Перем НачалоРабочегоДня, КонецРабочегоДня;
    Перем НормаЧасов = 8;
    Перем Ставка = 100;
    Перем ВсегоОтработано, ЧасыПереработки, Оплата;
    
    // Ввод времени начала
    НачалоРабочегоДня = Время(ВвестиСтроку("Введите время начала рабочего дня (чч:мм):"));
    
    // Ввод времени окончания
    КонецРабочегоДня = Время(ВвестиСтроку("Введите время окончания рабочего дня (чч:мм):"));
    
    // Расчет общего времени работы (минусуем 1 час на обед)
    ВсегоОтработано = КонецРабочегоДня - НачалоРабочегоДня - 1/24;
    ВсегоОтработано = Окр(ВсегоОтработано * 24, 2);
    
    // Расчет переработки
    ЧасыПереработки = Макс(ВсегоОтработано - НормаЧасов, 0);
    
    // Расчет оплаты
    Если ЧасыПереработки = 0 Тогда
        // Без переработки
        Оплата = ВсегоОтработано * Ставка;
    ИначеЕсли ЧасыПереработки <= 2 Тогда
        // Переработка до 2 часов включительно
        Оплата = НормаЧасов * Ставка + ЧасыПереработки * Ставка * 1.5;
    Иначе
        // Переработка более 2 часов
        Оплата = НормаЧасов * Ставка + 2 * Ставка * 1.5 + (ЧасыПереработки - 2) * Ставка * 2;
    КонецЕсли;
    
    // Вывод результатов
    Сообщить("Всего отработано " + Формат(ВсегоОтработано, "ЧДЦ=2") + " часов");
    Сообщить("Часы переработки " + Формат(ЧасыПереработки, "ЧДЦ=2"));
    Сообщить("Оплата составляет " + Формат(Окр(Оплата, 2), "ЧГ=0") + " золотых");

Перем НачалоРабочегоДня, КонецРабочегоДня;
    Перем НормаЧасов = 8;

    Перем НачалоРабочегоДня, КонецРабочегоДня;
    Перем НормаЧасов;    
    Перем Ставка;     
    Перем ВсегоОтработано, ЧасыПереработки, Оплата;
        
    НормаЧасов = 8;
    Ставка = 100;