Вквадратной матрице найти количество элементов равных "0"

Var
  a: array [1..N,1..N] of real;
  i: integer;
  j: integer;
  kol: real;

begin
// ввести значения массива a вашим любимым Количество нулей: ', kol);
end.