Тс, сформулируй нормально вопрос. Что за номера? Пробуй сделать массив, а в цикле брать номера оттуда. Если не знаешь как- то подучи сначала обычный паскаль.