Знайти кількість парних елементів цілого масиву розмірністю 3х4. (Паскаль)

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,

program primitive;

var a,b: integer;

begin 

read(a,b);

writeln(a mod b);

end.чему в школе то