Program Penjumlahan_matriks;
uses wincrt;
var
matrik1, matrik2 , hasil : array[1..3,1..2] of integer;
i , j : integer;


begin
clrscr;

{ input matrik ke satu }
writeln(' Elemen Matrik Satu');
for i := 1 to 3 do
     begin
     for j := 1 to 2 do
          begin
          write('Masukan Elemen Baris -',i,' Kolom -',j,' : ');
          readln(matrik1[i,j]);
     end;
end;

{input matrik ke dua}
writeln('Elemen Matriks Dua');
for i:= 1 to 3 do
     begin
     for j:= 1 to 2 do
          begin
          write('Masukan Elemen Baris -',i,' Kolom -',j,': ');
          readln(matrik2[i,j]);
    end;
end;

{proses penjumlahan tiap elemen}
for i := 1 to 3 do
     begin
     for j:= 1 to 2 do
          begin
          hasil[i,j]:= Matrik1[i,j]+Matrik2[i,j];
     end;
end;

{proses cetak hasil}
writeln('');

for i:= 1 to 3 do
    begin
    for j:= 1 to 2 do
         begin
         write(matrik1[i,j]:4);
         end;
         writeln;
    end;
writeln('+');

for i:= 1 to 3 do
    begin
    for j:= 1 to 2 do
         begin
         write(matrik2[i,j]:4);
         end;
         writeln;
    end;

writeln('=');
for i:= 1 to 3 do
    begin
    for j:= 1 to 2 do
         begin
         write(hasil[i,j]:4);
         end;
         writeln;
    end;
readln;
end.