MATRANKE

{Chuyen doi danh sach ke --> Ma tran ke}
uses crt;
type th= set of byte;
var a:array[1..50] of th;
    i,j,n,x:integer;
    f:text;
begin
    clrscr;
    assign(f,'dsk2.inp');reset(f);
    Readln(f,n);
    For i:=1 to n do
     Begin
      While not seekeoln(f) do
       begin
        read(f,x);
        A[i]:=A[i]+[x];
       end;
      readln(f);
     end;
    close(f);
    For i:=1 to n do
     begin
     writeln;
     For j:=1 to n do
      If j in A[i] then write(1,' ') else write(0,' ');
     end;
    readln
    end.