program mass;
uses crt;
var i,j,nul_count,count,max_cr,max_cc,max_row,max_col:integer;
matrix: array[1..5,1..5] of integer;
Nul_Col,Nul_Row:set of byte;
begin
randomize;
clrscr;
nul_count:=0;
for i:=1 to 5 do
  begin
  for j:=1 to 5 do
    begin
    matrix[i,j]:=random(2);
    if matrix[i,j]=0 then
      inc(nul_count);
    write(matrix[i,j]);
    end;
  writeln;
  end;
while nul_count<>0 do
  begin
  max_cr:=0;
  for i:=1 to 5 do
    begin
    count:=0;
    for j:=1 to 5 do
      if (matrix[i,j]=0) and not(i in Nul_Row) and not(j in Nul_Col) then
        inc(count);
    if count>max_cr then
      begin
      max_cr:=count;
      max_row:=i;
      end;
    end;

  max_cc:=0;
  for j:=1 to 5 do
    begin
    count:=0;
    for i:=1 to 5 do
      if (matrix[i,j]=0) and not(i in Nul_Row) and not(j in Nul_Col) then
        inc(count);
    if count>max_cc then
      begin
      max_cc:=count;
      max_col:=j;
      end;
    end;

    if max_cc>=max_cr then
      begin
      include(Nul_Col,max_col);
      nul_count:=nul_count-max_cc;
      end
    else
      begin
      include(Nul_Row,max_row);
      nul_count:=nul_count-max_cr;
      end;
  end;
  writeln('Nul_Row');
  for i:=1 to 5 do
    if i in Nul_Row then
      write(i,' ');
  writeln;
  writeln('Nul_Col');
  for i:=1 to 5 do
    if i in Nul_Col then
      write(i,' ');
  readln;
end.