program matrix;
uses crt;

var
    MatA, MatB, MatHas:array[1..3,1..3] of Integer;
    row, col, k:Integer;

begin
  ClrScr;
  // input matriks A ke array
  WriteLn('Matriks ordo 3x2');
  WriteLn;
  for row:=1 to 3 do
    begin
        for col:=1 to 2 do
          begin
            Write('Elemen A[',row,',',col,'] : ');
            ReadLn(MatA[row, col]);
          end;
    end;
  WriteLn;

  // input matriks B to array
  WriteLn('Matriks ordo 2x3');
  WriteLn;
  for row:=1 to 2 do
    begin
      for col:=1 to 3 do
        begin
          Write('Elemen B[',row,',',col,'] : ');
          ReadLn(MatB[row, col]);
        end;
    end;
  WriteLn;

  // menampilkan matriks A
  WriteLn('Matriks A adalah : ');
  for row:=1 to 3 do
    begin
      for col:=1 to 2 do
        begin
          Write(MatA[row, col], ' ');
        end;
      WriteLn;
    end;
  WriteLn;

  // menampilkan matriks B
  WriteLn('Matriks B adalah : ');
  for row:=1 to 2 do
    begin
      for col:=1 to 3 do
        begin
          Write(MatB[row, col], ' ');
        end;
      WriteLn;
    end;
  WriteLn;

  // perkalian matriks A dengan matriks B
  for row:=1 to 3 do
        for col:=1 to 3 do
            for k:=1 to 2 do
                MatHas[row,col] := MatHas[row,col] + MatA[row,k]*MatB[k,col];
                writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
                    for row:=1 to 3 do
                        begin
                            for col:=1 to 3 do
                                write(MatHas[row,col],' ');
                                writeln;
                        end;
                        WriteLn;


  ReadLn;
end.