Одномерные массивы. Не могу понять как выполнить первую часть задания ВАРИАНТ5

" Ввести 10 чисел не допуская ввода числа равного предыдущему" (PASCAL)