---

program Variant6_Task3;
const
  m = 5; // кратно 5
  n = 5; // кратно 5
var
  A: array[1..m, 1..n] of Integer = (
    (10, 7, 15, 2, 25),
    (3, 20, 22, 5, 8),
    (30, 11, 4, 35, 9),
    (12, 40, 1, 6, 45),
    (50, 13, 14, 15, 18)
  );
  i, j, sum_kr5: Integer;
begin
  Writeln('Матрица A (', m, 'x', n, '):');
  for i := 1 to m do
  begin
    for j := 1 to n do
      Write(A[i, j]:5); // Вывод элементов с отступом для ровности таблицы
    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.