Penjumlahan matriks dengan Pascal

program penjumlahan_matriks;

uses
wincrt;

var
matriks1, matriks2, matriks_hasil: array [1..3, 1..3] of integer;
i, j ,k: integer;

begin
Randomize;
for i := 1 to 3 do
for j:= 1 to 3 do
begin
matriks1[i, j] := Random(10);
matriks2[i, j] := Random(10);
end;
writeln('matriks 1');
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
write(matriks1[i, j]:5);
end;
writeln;
end;

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

{ for i := 1 to 3 do
for j := 1 to 3 do
begin

matriks_hasil[i, j] := matriks1[i, j] + matriks2[i, j];
end;


writeln('Hasil penjumlahan matriks 1 dan matriks 2');
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
write(matriks_hasil[i, j]:5);
end;
writeln;
end;}
for i := 1 to 3 do
for j := 1 to 3 do
for k := 1 to 3 do
matriks_hasil[i, j] := matriks_hasil[i, j] + (matriks1[i, k] * matriks2[k, j]);

writeln('hasil perkalian matriks 1 dan matriks 2');
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
write(matriks_hasil[i, j]:5);
end;
writeln;
end;
end.