нахождение нечетных элементов матрицы

[graf890]

Привет!
нужно найти сумму нечетных элементов двумерной матрицы. напишите пожалуйста код именно этой операции. все остальное есть.
или хотя бы просто код нахождения нечетных элементов
для четных if a mod 2 = 0 then.
а с нечетными?
язык - Pascal

[ZetX]

if a mod 2 = 1 then
не?

[Наки]

s:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 2)=1
then
s:=s+a[i,j];
writeln('Сумма нечетных элементов: ',s);