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

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

begin
// ввести значения массива a вашим любимым способом
for i:=1 to N do
for j:=1 to N do
if a[i,j]=0 then
kol=kol+1;
write('Количество нулей = ', kol);
end.