{заголовок программы}
program DEMO_C2;
{раздел объявления модулей и сторонних расширений}
uses
{crt - Console Run Time. Данный модуль содержит специализированные
подпрограммы для обработки текста, звука, клавиатурных событий}
    crt;
{раздел декларации констант}
const
{нетипизированная целочисленная константа,
отвечающая за количество элементов в массиве}
    N = 20;
{раздел декларации переменных}
var
{одномерный массив, состоящий из 20 элементов целочисленного типа данных}
    a : array[1..N] of integer;
{i   - счетчик цикла
 j   - неиспользуемая переменная
 min - хранит минимальное значение элемента в массиве удовлетворяющее условию}
    i, j, min : integer;
{начало главного блока программы}
begin
{очистка экрана от прошлых выводов}
    clrscr;
{заполнение массива пользовательскими целыми
числами вводом с клавиатуры из диапазона [-1000 ... 1000]}
    for i := 1 to N do
        read(a[i]);
{инициализируем искомое значение максимально возможным, чтобы
 при первом удачном поиске произвести реинициализацию}
    min := 1000;
{циклически просматриваем все элементы массива начиная с самого первого}
    for i := 1 to N do
{если значение текущего элемента четное и ОДНОВРЕМЕННО с этим не кратно
 трем и ОДНОВРЕМЕННО с этим меньше минимального элемента среди проверенных,
 то присваиваем в переменную min новое найденное минимальное значение}
        if((a[i] mod 2 = 0) and (a[i] mod 3 <> 0) and (a[i] < min)) then
            min := a[i];
{вставка пустой строки для повышения читабельности}
    writeln;
{выводим на экран пользователя найденное значение}
    writeln(min);
{имитация задержки работы программы до тех пор, пока пользователь
 не нажмет произвольную клавишу на клавиатуре}
    readkey;
{финализирующий оператор программы}
end.