Написать быстро программу на паскале

Программа получает на вход последовательность целых чисел, по модулю не превосходящих 1000000000. Признак окончания последовательности — число –2000000000. Вывести ‘YES’, если последовательность нестрого возрастающая, и 'NO' – в противном случае.

При решении задачи массив и переменную типа sequence of использовать нельзя.

Пример 1:

входные данные: 1 2 5 5

выходные данные: YES

Пример 2:

входные данные: 1 2 1 5

выходные данные: NO