3. Segitiga

program penjumlahanMatriks;
uses crt;
var  A, B, C, n : array [1..5,1..5] of integer;
     i, j : integer;
procedure inputMatriksA;
begin
     writeln('masukkan elemen matriks A :');
     for i:=1 to 3 do
     begin
         for j:=1 to 3 do
         begin
              write('elemen matriks A pd indeks ',i,', ',j,' : ');
              readln(A[i,j]);
         end;
     end;
end;
procedure inputMatriksB;
begin
     writeln('masukkan elemen matriks B :');
     for i:=1 to 3 do
     begin
         for j:=1 to 3 do
         begin
              write('elemen matriks B pd indeks ',i,', ',j,' : ');
              readln(B[i,j]);
         end;
     end;
end;
procedure penjumlahan;
begin
     for i:=1 to 3 do
     begin
          for j:=1 to 3 do
          begin
               C[i,j] := A[i,j]+B[i,j];
          end;
     end;
end;
procedure cetak;
begin
     for i:=1 to 3 do
     begin
          for j:=1 to 3 do
          begin
               write(C[i,j] :4);
          end;
          writeln;writeln;
     end;
end;

{program utama}
begin
     clrscr;
     inputMatriksA;
     writeln;
     inputMatriksB;
     writeln;
     penjumlahan;
     writeln('Hasil penjumlahan matriks A dan B :');
     cetak;
     readln
end.