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

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

procedure vvod(var n:integer);
begin
readln(n);
if n gt; 30000 then
begin
writeln(Число больше 30 000, введите наименьшее число );
vvod(n);
end
end;

begin
writeln(Введите число,не превышающее 30000);
l:=0;
n:=1;
max:=1;
while ngt;0 do
begin
vvod(n);
l:=l+1;
if llt;=k then if n gt; max then max:=n;
if l= then
begin
writeln(Количество чисел не может быть больше, чем , k);
writeln(Наибольшее число , max);
n:=0;
end
end;
if llt;k then writeln(Максимальное число , max)
end.