надо написать на паскале

[Tolian92]

Найти количество четных элементов матрицы F(6,4)

[Tiva]

for i=1 to 6 do begin
 for j=1 to 4 do begin
if (a[i,j] mod 2 = 0) then s:=s+1;
end;
end;
writeln(s);

[Tolian92]

Сообщение от Tiva

for i=1 to 6 do begin
 for j=1 to 4 do begin
if (a[i,j] mod 2 = 0) then s:=s+1;
end;
end;
writeln(s);

спасибо!))