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

Количество чисел не превышает 1000. Введённые числа не превышают 30 000.

Программа должна вывести одно число – минимальное число, оканчивающееся на 4.

Решить в паскаль абс, решение из интернета не работает.

ч у ш ь

оппа вставить забыла, там после строку "if a<min " надо заменить на

а хотя нет секунду

Program pr1; var n,min,a,i:integer; begin readln(n); min:=30000; for i:=1 to n do begin readln (a); if (a<min) and (a mod 10=4) then min:=a; end; writeln(min); end.