Вывести на экран элементы массива, кратные 3

program zadanie1;
const
  n = 9;
var
  a: array[1..n] of integer = (4,-5,-6,3,0,-2,8,-3,1); // Переменная для хранения массива.
  i: integer; // Вспомогательная переменная для организации цикла.
  sum: integer; // Переменная для хранения значения суммы элементов.
  minelem: integer; // Переменная для хранения значения минимального по значению элемента.
  maxelem: integer; // Переменная для хранения значения минимального по значению элемента.
begin
  Writeln('Исходный массив:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  Writeln('Элементы массива кратные 3:');
  for i:= 1 to n do
    if a[i] mod 3 = 0 then
      write(a[i]:5);
  Writeln;
  sum:= 0;
  for i:= 1 to n do
    if not(a[i] mod 2 = 0) then
      sum:= sum + a[i];
  Writeln('Сумма нечетных элементов массива: ', sum);
  minelem:= a[1];
  for i:= 2 to n do
    if a[i] < minelem then
      minelem:= a[i];
  Writeln('Элемент массива с минимальным значением: ', minelem);
  maxelem:= a[1];
  for i:= 2 to n do
    if a[i] > maxelem then
      maxelem:= a[i];
  Writeln('Элемент массива с максимальным значением: ', maxelem);
  Writeln('Значение выражения min^2 - max: ', minelem*minelem - maxelem);
  Readln;
end.

program zadanie2;
const
  n = 9;
var
  a: array[1..n] of integer = (-4,5,-6,0,1,-2,8,-5,-1); // Переменная для хранения массива.
  i,j: integer; // Вспомогательные переменные для организации циклов.
  minelem: integer; // Переменная для хранения значения минимального по значению элемента.
  maxelem: integer; // Переменная для хранения значения минимального по значению элемента.
  tmp: integer;  // Промежуточная переменная для организации сортировки элементов массива.
begin
  Writeln('Исходный массив:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  minelem:= a[1];
  for i:= 2 to n do
    if a[i] < minelem then
      minelem:= a[i];
  Writeln('Элемент массива с минимальным значением: ', minelem);
  maxelem:= a[1];
  for i:= 2 to n do
    if a[i] > maxelem then
      maxelem:= a[i];
  Writeln('Элемент массива с максимальным значением: ', maxelem);
  Writeln('Среднее арифметическое из элементов с максимальным и минимальным значениями: ', ((maxelem + minelem)/2):0:2);
  Writeln('Индексы элементов массива которые при делении на 3 дают в остатке 2:');
  for i:= 1 to n do
    if a[i] mod 3 = 2 then
      write(i:5);
  Writeln;
  for i:= 1 to n-1 do
    for j:= i+1 to n do
      if a[i] < a[j] then
        begin
          tmp:= a[i];
          a[i]:= a[j];
          a[j]:= tmp;
        end;
  Writeln('Массив, отсортированный по убыванию:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  Readln;
end.