Задача 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.