Паскаль, сделать через while, а не через break
Создать одномерный массив В изN элементов. Элементами массива являются целые случайные
числа, принадлежащие интервалу от 0 до 10.Найти элемент массива равный 1. Если таких
элементов несколько, то вывести на экран номер первого элемента.
(Например, массив 6 1 3 3 2 3 4 5 1 2 2 5 5 0 0, номер 2)