PENJUMLAHAN MATRIK 3 X 3

Apa kabar semuanya, ini saya mau bagi-bagi source code penjumlahan matriks 3 x 3. Ini hasil coding saya ketika asistensi praktikum, tak disangka-sangka saya bisa membuatnya. padahal awalnya saya gak paham cara buat ni matiks. Tapi dalam kondisi tertekan, akhirnya saya bisa menyelesaikannya. Gak pakai panjang lebar, silahkan copy paste langsung aja source code dibawah ini...

program penjumlahan_matriks;

uses wincrt;

var

baris,kolom : integer;
jumlaha : array[1..5,1..5] of integer;
jumlahb : array[1..5,1..5] of integer;
jumlahc : array[1..5,1..5] of integer;

begin
     writeln('MATRIKS A');
     writeln('=========');
     for baris :=1 to 3 do
         begin
              for kolom:=1 to 3 do
                  begin
                       write('Masukan elemen matrik A ', baris,',',kolom,': '); readln(jumlaha[baris,kolom]);
                  end;
         end;
    writeln;
    
    for baris:=1 to 3 do
        begin
             writeln;
                     for kolom:=1 to 3 do
                         begin
                              write('  ',jumlaha[baris,kolom]);
                         end;
        end;
         
    writeln;
    writeln;
    writeln('MATRIKS B');
    writeln('=========');
    for baris :=1 to 3 do
        begin
             for kolom:=1 to 3 do
                 begin
                      write('Masukkan elemen matriks B ',baris,',',kolom,': '); readln(jumlahb[baris,kolom]);
                 end;
        end;

        writeln;
       for baris:=1 to 3 do
           begin
                writeln;
                        for kolom:=1 to 3 do
                            begin
                                 write('  ',jumlahb[baris,kolom]);
                            end;              
           end;

    writeln;
    writeln('Hasil perkalian Matrik A X B: ');
    for baris:=1 to 3 do
        begin
        writeln;
             for kolom:=1 to 3 do
                 begin
                      write('   ');
                      jumlahc[baris,kolom]:=jumlaha[baris,kolom]+jumlahb[baris,kolom];
                      write(jumlahc[baris,kolom]);
                 end;
        end;
    

end.