PROGRAM CMMULT (INPUT,OUTPUT) ;
  TYPE MATRIX=ARRAY [ 1..50,1..50 ] OF INTEGER ;
  VAR A,B,C:MATRIX;
      I,J,N:INTEGER ;

{$I B:MMULT.SRC}

  BEGIN
    READLN (N) ;
    FOR I:=1 TO N DO
    BEGIN
      FOR J:=1 TO N DO
        READ (A[I,J]) ;
      READLN ;
    END ;
    FOR I:=1 TO N DO
    BEGIN
      FOR J:=1 TO N DO
        READ (B[I,J]) ;
      READLN
    END ;
    WRITELN ( 'MATRIX A IS ') ;
    FOR I:=1 TO N DO
    BEGIN
      FOR J:=1 TO N DO
        WRITE (A[I,J]) ;
      WRITELN
    END ;
    WRITELN ;
    WRITELN ( 'MATRIX B IS ') ;
    FOR I:=1 TO N DO
    BEGIN
      FOR J:=1 TO N DO
        WRITE (B[I,J]) ;
      WRITELN
    END ;
    WRITELN ;
    MMULT (A,B,C,N) ;
    WRITELN ( 'MATRIX C IS ') ;
    FOR I:=1 TO N DO
    BEGIN
      FOR J:=1 TO N DO
        WRITE (C[I,J]) ;
      WRITELN
    END ;
    WRITELN
  END.