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

Question

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

Answer 1

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.