perkalian matriks

program perkalian_matriks;
uses crt;
const n_i=2;
n_j=2;
n_k=1;
varA: array [1..n_i,1..n_j] of integer;
B: array [1..n_j,1..n_k] of integer;
C: array [1..n_i,1..n_k] of integer;
i,j,k:integer;
beginclrscr;
writeln(’penetapan nilai matriks A’);
for i:=1 to n_i dofor j:=1 to n_j do
begin
write(’baris ke-’,i,’kolom ke-’,j,’ :’);
readln(A[i,j]);
end;
writeln(’penetapan nilai matriks B’);
for j:=1 to n_j dofor k:=1 to n_k do
begin
write(’baris ke-’,j,’kolom ke-’,k,’ :’);
readln(B[j,k]);
end;
writeln(’Perhitungsn sedang dilakukan ..’);
for i:= 1 to n_i dofor k:= 1 to n_k dobeginC[i,k] :=0;
for j:= 1 to n_j doC[i,k] := C[i,k]+A[i,j] * B[j,k];
end;
writeln(’Maka nilai matriks C’);
for i:=1 to n_i dobeginfor k:=1 to n_k dowrite(C[i,k]:4);
writeln;
end;
readln;
end.