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

var i,j,n,x,kol:int64;beginread(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.