Program Perkalian Matriks 3x3

Program nn;
uses crt;
var
a,b,hasil:array [1..5,1..5] of integer;
i,j,k:integer;
begin
clrscr;
        for i:= 1 to 3 do
        begin
                for j:= 1 to 3 do
                begin
                write('Masukkan angka: ');
                readln(a[i,j]);
                end;
        writeln;
        end;

        for i:= 1 to 3 do
        begin
                for j:= 1 to 3 do
                begin
                write('Masukkan angka: ');
                readln(b[i,j]);
                end;
        writeln;
        end;

        for i:= 1 to 3 do
        begin
                for j:= 1 to 3 do
                begin
                write(a[i,j],' ');
                end;
        writeln;
        end;

        writeln;

         for i:= 1 to 3 do
        begin
                for j:= 1 to 3 do
                begin
                write(b[i,j],' ');
                end;
        writeln;
        end;

        for i:=1 to 3 do
        begin
        for j:= 1 to 3 do
        begin
        for k:= 1 to 3 do
                begin
                hasil[i,j]:= hasil[i,j]+ a[i,k] * b[k,j];
                end;
        end;
        end;

        writeln;

        for i:= 1 to 3 do
        begin
                for j:= 1 to 3 do
                begin
                write(hasil[i,j],' ');
                end;
        writeln;
        end;


readln;
end.