Напешите программу, которая в последовательности натуральных чисел определяет максимальное число, меньше 1000. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивающихся числом 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не привыкает 1000. Введённые числа не превышают 30000.
Программа должна вывести одно число-максимальное число последовательности меньше 1000.
Пример работы программы:
Входные данные:
265.
3248
789
35
0
Выходные данные:
789
Обязательно писать программу на языке паскаль!