---

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
      if A[i, j] mod 5 = 0 then
        sum_kr5 := sum_kr5 + A[i, j];
        
  Writeln('Сумма элементов, кратных 5 = ', sum_kr5);
  Readln;
end.