[lmikle]

А подумать???

добавь

Код:

uses Windows, SysUtils;

НАРОД!!! ДОСТАЛИ УЖЕ ПРОСИТЬ ДЕЛАТЬ ПОЛНОСТЬЮ КАКИЕ-ТО ДУРАЦКИЕ ШКОЛЬНЫЕ ЗАДАНИЯ!!! ДАВАЙТЕ УВАЖАТЬ ДРУГ ДРУГА.
ДЕЛАЕМ САМИ И СПРАШИВАЕМ ТО, ЧТО НЕ ПОЛУЧАЕТСЯ (С ВЫКЛАДЫВАНИЕМ СВОЕГО КОДА).