PROGRAM CTRANS (INPUT,OUTPUT) ;

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

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

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

 {SI B:TRANS.SRC}

 BEGIN (*CTRANS*)
  READ (N) ;
  FOR I:=1 TO N DO
    BEGIN
      READLN ;
      FOR J:=1 TO N DO
        READ (A[I,J])
    END ;
  READ (N);
  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.