Массив: Определить в нём среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3.

program Zadaine102;
const
  n = 4;
  m = 3;
var
  a: array [1..n,1..m] of integer; // Переменная для хранения двумерного массива.
  i,j,k: integer;  //  Промежуточные переменные для организации циклов.
  SrAreth: real;  //  Переменная для хранения значения среднего арифметического.
  sum: integer;      // Промежуточная переменная для вычисления суммы.
begin
  for i:= 1 to n do    // Циклы перебора всех элементов массива.
    for j:= 1 to m do
      begin
        write('Введите элемент ',i,' строки ',j,' столбца: ');
        Readln(a[i,j]);    //  Ввод значений элементов массива.
      end;
  writeln('Исходный массив: ');   //  Вывод элементов массива на экран.
  for i:= 1 to n do
    begin
    for j:= 1 to m do
      Write(a[i,j]:4);
    writeln;
    end;
  k:=0;
  sum:=0;
  writeln('Элементы, которые при делении на 4 дают остаток 1 или 3:');
  for i:= 1 to n do     //  Циклы перебора всех элементов массива.
    for j:= 1 to m do
      if (a[i,j] mod 4 = 1) or (a[i,j] mod 4 = 3) then // Условия выбора элементов.
        begin
        write(a[i,j],'  ');
        sum:=sum + a[i,j];  // Вычисление суммы выбранных элементов.
        inc(k);
        end;
  writeln;
  SrAreth:=sum/k;    //   Вычисление среднего арифметического выбранных элементов.
  writeln('Среднее арифметическое выбранных элементов: ',SrAreth:4:2);
  Readln;
end.