uses crt;
var a1,a2 : array[1..10,1..10] of integer;
n,a,b : integer;
begin
write('Masukan Jumlah Ordo = ');readln(n);
writeln;
writeln('Matrix 1');
for a:=1 to n do
for b:=1 to n do
begin
write('Data ke -[',a,',',b,'] : ');readln(a1[a,b]);
end;
writeln;
writeln('Matix 2');
for a:=1 to n do
for b:=1 to n do
begin
write('Data ke -[',a,',',b,'] : ');readln(a2[a,b]);
end;
writeln;
writeln;
writeln('Data Matrix 1 ');
for a:=1 to n do
begin
for b:=1 to n do
begin
write(' ',a1[a,b]);
end;
writeln;
end;
writeln('Data Matrix 2 ');
for a:=1 to n do
begin
for b:=1 to n do
begin
write(' ',a2[a,b]);
end;
writeln;
end;
writeln('Hasil Jumlah dari Matrix 1 + Matrix2 : ');
for a:=1 to n do
begin
for b:=1 to n do
begin
write(' ',a1[a,b]+a2[a,b]);
end;
writeln;
end;
readln;
end.
