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

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

program MaxNumber;

var
i, num, maxNum: integer;
found: boolean;

begin
maxNum := -1;
found := false;

for i := 1 to 10 do
begin
write('Введите число: ');
readln(num);

end;

if found then
writeln('Максимальное число, оканчивающееся на 4: ', maxNum)
else
writeln('NO');
end.