Технический форум - Написать на Паскале

Так. Продолжаете, значит, постить дубликаты. Слов и просьб этого не делать Вы, очевидно, не понимаете. Что же, есть у нас в арсенале и другие средства.
Значит так. Последнее предупреждение. Если появится еще один дубль, пойдёте в вечный бан с полным удалением всех постов.
Очередной дубликат удалён.
А что касается самой задачки, то, извините, не считаю правильным "помогать" лоботрясу, который не желает осваивать самые примитивные азы программирования на примере запредельно глупеньких задачек и настраивается на то, чтобы прожить жизнь чужим умом. Кстати, ничего не выйдет, уж поверьте.