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

var n,i,a,min: integer;begin  readln(n);

 min:=30001 for i:=1 to n do

    begin

      readln(a)      if (a mod 10 = 4) and (a < min)

           then min:= a;    end; writeln(min)end.