Дан массив 3 * 3.найти сумму четных элементов массива.

Var a:array[1..3,1..3] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do
  for j:=1 to 3 do begin
  read(a[i,j]);
  if not odd(a[i,j]) then s+=a[i,j];
  end;
writeln(s);
end.