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

Хотя бы что-нибудь

Таня, у меня к Вам встречное предложение: перестать шариться по форумам, пока не поздно быстренько взяться за ум, потратить часок и научиться подобные элементарнейшие, глупейшие, школьные задачки решать самостоятельно. Можно с нашей помощью - но именно ПОМОЩЬЮ, а не "напишите мне, я тупо бездумно скатаю и сдам". Напоминаю - еще только начало декабря, время до зачетной и экзаменационной сессий еще есть, но с каждым днём его становится всё меньше. А чужим умом не проживёте, и не пытайтесь.