Нужна программа на языке паскаль (через while и как можно проще Дана непустая последовательность вещественных чисел, оканчивающаяся числом 1000. Последовательность является неубывающей. Несколько чисел, идущих подряд, равны между собой. Найти количество таких чисел.