program Project2;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    A: array[1..12] of array[1..4] of Integer;
    At: array[1..4] of array[1..12] of Integer;
    i, j: Integer;
    fodd, notodd: Integer;
begin
    Randomize;
    fodd := 0;
    notodd := 0;
    for i := 1 to 12 do
      for j := 1 to 4 do
        A[i][j] := Random(48) + 1;
    for i := 1 to 12 do
      Writeln(A[i][1], #09, A[i][2], #09, A[i][3], #09, A[i][4]);
    while(True) do begin
      Writeln('Vvedite stroky/stolbec kotorue nygno obnyit ili 0 dlya propyska');
      Readln(i);
        if i = 0 then
          Break;
      Readln(j);
      A[i][j] := 0;
    end;
    for i := 1 to 12 do
      for j := 1 to 4 do
        if odd(A[i][j]) then
          Inc(fodd) else
          Inc(notodd);
    writeln('Chetnuh = ', notodd);
    writeln('Ne chetnuh = ', fodd);
    for i := 1 to 12 do
      for j := 1 to 4 do
        At[j][i] := A[i][j];
    for i := 1 to 4 do begin
      for j := 1 to 12 do
        Write(A[j][i], ' ');
      Writeln;
    end;
end.