---

program Variant6_Task3;
const
  m = 2; // количество строк
  n = 3; // количество столбцов
var
  A: array[1..m, 1..n] of Integer = ((10, 7, 15), (3, 20, 22));
  i, j, sum_kr5: Integer;
begin
  Writeln('Исходная матрица A:');
  for i := 1 to m do
  begin
    for j := 1 to n do
      Write(A[i, j]:6); // Вывод элементов с отступом для ровности
    Writeln(); // Переход на новую строку после каждой строки матрицы
  end;
  Writeln();

  sum_kr5 := 0;
  
  // Проходим по всей матрице и ищем элементы, кратные 5
  for i := 1 to m do
    for j := 1 to n do
      if A[i, j] mod 5 = 0 then
        sum_kr5 := sum_kr5 + A[i, j];
        
  Writeln('Сумма элементов, кратных 5 = ', sum_kr5);
  Readln;
end.