Записать условие,которое является истинным, когда целое а не кратно трём и окагчивается нулём

A% 3 ! = 0 & & a % 10 == 0

Type   mass = array[1..10, 1..10] of real; var   a, b, c: mass;   n, m, i, j, n1, m1: integer; procedure matra(var a: mass); var   i, j: integer; begin   for i : = 1 to n do       for j : = 1 to m do       begin           writeln('a[', i, ',', j, ']: ');           readln(a[i, j])       end end; procedure matrb(var b: mass); var   i, j: integer; begin   for i : = 1 to n1 do       for j : = 1 to m1 do       begin           writeln('b[', i, ',', j, ']: ');           readln(b[i, j])       end end; procedure sum(a, b: mass; var c: mass); var   i, j: integer; begin   for i : = 1 to n do       for j : = 1 to m do           c[i, j] : = a[i, j] + b[i, j]; end; begin   writeln('введите n,m матрицы a');   readln(n, m);   matra(a);   writeln('введите n,m матрицы b');   readln(n1, m1);   matrb(b);   if (n1 < > n) and (m1 < > m) then       writeln('матрицы сложить нельзя')   else begin       sum(a, b, c);       writeln('a+b');       for i : = 1 to n do       begin           for j : = 1 to m do               write(c[i, j]: 1: 3, ' ');           writeln       end   end;   readln; end.