Задача 7. Найти первый и последний элементы массива, кратные числу 3. Пример: массив 7 2 6 5 4 4 10 3 9 элементы, кратные 3 6 39 первый и последний из них 6 9

var   a: array of byte := (7, 2, 6, 5, 4, 4, 10, 3, 9);   min, max: byte; begin   write('Кратные трём: ');   foreach i: byte in a do     if (i mod 3 = 0) then     begin       write(i, ' ');       if (min = 0) then         min := i       else         max := i;     end;     if (max = 0) then       max := min;     writeln();     writeln(min, ' ', max); end.