Примеры кода на Pascal ABC