Составить программы на Паскале

Составить программы на Паскале
Примечание: Необходимо применять наиболее оптимальные алгоритмические конструкции
2) Театральная касса продает билеты на гастроли театра по 2000 рублей за один билет, не более двух билетов одному покупателю. Программа должна контролировать объем продаж и печатать сумму к оплате, либо предупреждающее сообщение о невозможности продажи билета

Примечание: Необходимо применять наиболее оптимальные алгоритмические конструкции
3) Составить программу, подсчитывающую и печатающую на экран, сколько денег собрал кондуктор трамвая за неделю (причем количество собранных денег за каждый день, должно быть в программе), если стоимость проезда 10 рублей. Среди пассажиров есть льготники и заплатившие за проезд. Если число льготников будет больше или равно числу заплативших, то выдать сообщение «Нерентабельно». (цикл и ветвление обязательны)