matrix

uses crt;
var
   i,j,r:Array[1..10,1..10] of integer;
   m,n,p:array[1..10,1..10]of integer;
   a,b,hasil: array[1..20,1..20]of integer;
   baris,kolom,baris2,kolom2:integer;

begin
   clrscr;
   writeln('----- Masukkan Matrix R -----');
   write('jumlah baris : ');readln(baris);
   write('jumlah kolom : ');readln(kolom);

   for baris:=1 to baris do
      for kolom:=1 to kolom do
      begin
         write('[',baris,',',kolom,'] = ');readln(R[baris,kolom]);
      end;
   writeln('----- Masukkan Matrix P -----');
   write('jumlah baris : ');readln(baris);
   write('jumlah kolom : ');readln(kolom);

   for baris:=1 to baris do
      for kolom:=1 to kolom do
      begin
         write('[',baris,',',kolom,'] = ');readln(P[baris,kolom]);
      end;

   writeln;

{------------------------- TAMPILKAN ------------------------}
{------------------------------------------------------------}
   for baris:=1 to baris do
   begin
      for kolom:=1 to kolom do
      begin
         write(R[baris,kolom]);
         write(' ');

      end;
      writeln;
   end;
   writeln('ditambah dengan : ');
   for baris:=1 to baris do
   begin
      for kolom:=1 to kolom do
      begin
         write(P[baris,kolom]);
         write(' ');

      end;
      writeln;
   end;
   writeln('menjadi : ');

   for kolom:=1 to kolom do
   begin
      for baris:=1 to baris do
      begin
         hasil[baris,kolom]:=R[baris,kolom] + P[baris,kolom];
      end;
   end;
      for baris:=1 to baris do
      begin
         for kolom:=1 to kolom do
         begin
            write(hasil[baris,kolom]);
            write(' ');
         end;
         writeln;
      end;
   writeln('created by retnodn');
   readln();
end.