program MaxNumber;

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

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

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

if (num mod 10 = 4) and (num > maxNum) then
begin
maxNum := num;
found := true;
end;

end;

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