Perkalian 2 buah matrix menggunakan pascal

Disini saya akan memposting perkalian dua buah matrix menggunakan pascal untuk lebih lanjut silahkan melihat sendiri bagaimana syntax-nya.

program perkalian_dua_buah_metriks;

uses wincrt;

var

A, B, C : array [1..3,1..3] of integer;

i, j : integer;

begin

writeln ('MATRIKS A');

for i := 1 to 3 do

for j := 1 to 3 do

begin

writeln ('Data ke-', i,',',j,':');

readln (A[i][j]);

end;

writeln;

writeln ('MATRIKS B');

for i := 1 to 3 do

for j := 1 to 3 do

begin

writeln ('Data ke-', i,',',j,':');

readln (B[i][j]);

end;

writeln;

writeln ('OUTPUT DATA MATRIKS');

for i := 1 to 3 do

begin

for j := 1 to 3 do

begin

C[i][j] := (A[i][j]*B[i][j])+(A[i][j]*B[i][j])+(A[i][j]*B[i][j]);

C[i][j] := (A[i][j]*B[i][j])+(A[i][j]*B[i][j])+(A[i][j]*B[i][j]);

C[i][j] := (A[i][j]*B[i][j])+(A[i][j]*B[i][j])+(A[i][j]*B[i][j]);

write (C[i][j]:5);

end;

writeln;

end;

end.