program exam (input,output);

type
   matrix = array[1..20,1..20] of Boolean;
var
   m : matrix;
   i, j, row, col : integer;



(* AND 2D array of Boolean

function matrixand (m : matrix; r, c : integer) : Boolean;
var
   i, j : integer;
begin
   matrixand := true;
   for i := 1 to r do
      for j := 1 to c do
         if not m[i,j] then
            matrixand := false;
end;
*)



(*  create identity matrix

procedure identity (var m:matrix; r,c : integer);
var
   i, j : integer;
begin
   if r = c then
     begin
       for i:= 1 to r do
          for j := 1 to c do
             m[i,j] := 0.0;
       for i := 1 to r do
          m[i,i] := 1.0;
     end
   else
      writeln('not square');
end;
*)



(* first and last char of each line

procedure alfomeg;
var
   ch : char;
   first : Boolean;
begin
   while not eof do
     begin
       first := true;
       while not eoln do
         begin
           read(ch);
           if first then
             begin
               write(ch);
               first := false;
             end;
           if eoln then
              write(ch);
         end;
       readln;
       writeln;
     end;
end;
*)


begin

end.
