Вычислить количество четных элементов ниже главной диагонали.

Var i,j,n,x,kol:int64;
begin
read(n);
for i:=1 to n do begin
   for j:=1 to n do begin
      read(x);
      if (i>j)and((x mod 2)=0) then inc(kol);
      end;
      end;
writeln(kol);
end.