Напешите программу, которая в последовательности натуральных чисел определяет максимальное число, меньше 1000. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивающихся числом 0 (0-признак окончания ввода, не входит в последовательность).
Количество чисел не привыкает 1000. Введённые числа не превышают 30000.
Программа должна вывести одно число-максимальное число последовательности меньше 1000.
Пример работы программы:
Входные данные:
265.
3248
789
35
0
Выходные данные:
789
Обязательно писать программу на языке паскаль!
var x, max: integer;
begin
x := -MAXINT;
max := x;
while(x <> 0) do
begin
readln(x);
if (x > max) and (x < 1000) and (x <> 0) then max := x;
end;
writeln(max);
end.