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

касса продает билеты на гастроли театра по 2000 рублей за один билет, не более двух билетов одному покупателю. Программа должна контролировать объем продаж и печатать сумму к оплате, либо предупреждающее сообщение о невозможности продажи билета

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