---

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
  sum_kr5 := 0;
  
  // Проходим по всей матрице
  for i := 1 to m do
    for j := 1 to n do
      { Проверяем, кратно ли число 5 (делится ли на 5 без остатка) }
      if A[i, j] mod 5 = 0 then
        sum_kr5 := sum_kr5 + A[i, j];
        
  Writeln('Сумма элементов, кратных 5 = ', sum_kr5);
  Readln;
end.