Penjumlahan Matriks

Penjumlahan matriks dengan menggunakan array dalam bahasa pemrograman pascal dengan menghitung jumlah matriks dengan ordo 2 x 2.

program penjumlahanmatriks;
uses wincrt;

type
matriks = array[1..10,1..10] of integer;

var
P,Q,R :matriks;
I,J :integer;
jum,rata2 :real;
begin
writeln('program menghitung penjumlahan penjumlahan matriks 2x2');
writeln('======================================================');
writeln;
writeln('masukan komponen matriks P ');
for i:=1 to 2 do
begin
for j:=1 to 2 do
begin
write('P-',i,j,' : ');
readln(P[i,j]);
end;
end;
writeln;
writeln('masukan koponen matriks Q ');
for i:=1 to 2 do
begin
for j:=1 to 2 do
begin
write('Q-',i,j, ' : ');
readln(Q[i,j]);
end;
end;
writeln;
writeln('hasilR =P+Q ');
for i:=1 to 2 do
begin
for j:=1 to 2 do
begin
R[i,j]:=P[i,j]+Q[i,j];
writeln('R-',i,j,' : ',R[i,j]);
end;
end;
end.