Turbo Pascal. Освой на примерах
Потопахин Виталий Валерьевич