Используя функцию Random и процедуру Randomize, сформировать массив из n неповторяющихся чисел.