Напишите программу , которая в последовательности 10-ти натуральных чисел определяет максимально число, оканчивающееся на 4. Если таких чисел нет , вывести (NO). (Язык программирования -Паскаль)

Предыдущий
вопрос Следующий
вопрос

program FindMaxNumber;

var
i, number, maxNumber: integer;
hasNumberEndingWith4: boolean;

begin
hasNumberEndingWith4 := false;
maxNumber := 0;

for i := 1 to 10 do
begin
write('Enter a natural number: ');
readln(number);

end;

if hasNumberEndingWith4 then
writeln('The maximum number ending with 4 is: ', maxNumber)
else
writeln('NO');
end.