ОГЭ-20.2: 4DD2D2

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

Пример работы программы:

Входные данные	Выходные данные
3 18 9 31	9

Ответ:

VaR a,b,n,i:integer; // а - число из последовательности, b - минимум,
// n - количество чисел, i - счетчик 
BeGiN
 readln (n); // Количество чисел <1001
 b:=30001; // Инициализация минимума большего любого числа
   for i:=1 to n do // Повторение ввода чисел n раз с проверкой
     begin
       readln (a); // По условию <|300001|
       if (a mod 9 =0) and (a<b) // Если число кратно 9 И минимально
         then b:=a; // То задать новый минимум
     end;
 writeln (b); // Вывод ответа
end.