Скрипт расчёта стоимости поездки на такси Pascal

Скрипт расчёта стоимости поездки на такси Pascal
Необходимо собрать тариф на базе представленных скриптов во вложении. Можно задействовать нейросеть
Тип тарифа: почасовой
Посадка в городе:
Посадка за городом:
Включено в посадку в городе км:
Включено в посадку за городом км:
Включено в посадку мин:
ПОРОГ пробега
Порог 1 после которого изменять стоимость км:
Стоимость км далее:
Порог 2 после которого изменять стоимость км:
Стоимость км далее:
Порог 3 после которого изменять стоимость км:
Стоимость км далее:
Порог 4 после которого изменять стоимость км:
Стоимость км далее:
Порог 5 после которого изменять стоимость км:
Стоимость км далее:
ПОРОГ времени
Порог 1 после которого изменять стоимость минуты
Стоимость минуты далее
Порог 2 после которого изменять стоимость минуты
Стоимость минуты далее
Порог 3 после которого изменять стоимость минуты
Стоимость минуты далее
Порог 4 после которого изменять стоимость минуты
Стоимость минуты далее
Порог 5 после которого изменять стоимость минуты
Стоимость минуты далее
ОПЦИИ тарифа
Группа проездов между районами (поле выбора)
Учитывать проезды между районами (галочка)
Учитывать посадку/высадку в районах (галочка)
Определять районы в таксометре по фактическому маршруту (галочка)
Округление: 100
Округлять в большую сторону (галочка)
Фиксированная скидка при заказе из приложения:
Время ожидания клиента с момента приезда водителя и нажатия кнопки на месте, высчитывать из времени включенного в посадку. Далее считать в зависимости от стоимости в порогах времени