(* WARSHALL'S ALGORITHM FOR BIT MATRICES *)

PROGRAM CBITMTRX (INPUT,OUTPUT) ;

 TYPE GYORETSU=ARRAY[ 1..10,1..10 ] OF INTEGER ;

 VAR A,R : GYORETSU ; N,I,J : INTEGER ;

 {EXTERNAL PROCEDURE BITMTRX (N:INTEGER ; A:GYORETSU ; VAR R:GYORETSU) ; }

 {$I B:BITMTRX.SRC}

BEGIN (*MAIN*)
  READ (N) ;
  FOR I:=1 TO N DO
    BEGIN
      READLN ;
      FOR J:=1 TO N DO
        READ (A[I,J])
    END ;
  BITMTRX (N,A,R) ;
  WRITELN (LST);
  WRITELN (LST,'A':1) ;
  FOR I:=1 TO N DO
    BEGIN
      FOR J:=1 TO N DO
        WRITE (LST,A[I,J]:3) ;
      WRITELN (LST)
    END ;
  WRITELN (LST);
  WRITELN (LST,'R : TRANSITIVE CLOSURE OF A':27) ;
  FOR I:=1 TO N DO
    BEGIN
      FOR J:=1 TO N DO
        WRITE (LST,R[I,J]:3) ;
        WRITELN (LST)
    END
END.