Напишите программу, которая в последовательности натуральных чисел определяет максимальное, оканчивающееся на 1. Программа

program max_n;const k = 5;//Проверить работоспособность на тысяче чисел трудно.//Задано количество чисел 5.//Можно заменить на k = 1000.var max, n, l: integer;

procedure vvod(var n:integer);beginreadln(n);if n > 30000 thenbeginwriteln(\'Число больше 30 000, введите меньшее число \');vvod(n);endend;

beginwriteln(\'Введите число,не превышающее 30000\');l:=0;n:=1;max:=1;while n>0 dobeginvvod(n);l:=l+1;if l<=k then if n > max then max:=n;if l= thenbeginwriteln(\'Количество чисел не может быть больше, чем \', k);writeln(\'Максимальное число \', max);n:=0;endend;if l<k then writeln(\'Максимальное число \', max)end.