Написать логику расчёта стоимости поездки Pascal

Необходимо написать логику расчёта стоимости поездки на такси, используя константы и их значения в прикрепленном файле. Данный скрипт будет вставлен в компилятор. // скрипт расчёта учёта стоимости посадки/высадки в районах, а так же учёт проезда между районами и выбор района - я дам отдельно.