program matrix;
uses wincrt;
const
     jb=2;
     jk=2;
type
    matriks23 = array [1..jb,1..jk] of integer;
var
   A,B,C:matriks23;
   j,k:integer;
begin
clrscr;
writeln('matriks A');
 for j:=1 to jb do begin
     for k:=1 to jk do begin
         write('A[',j,',',k,'] = ');readln(A[j, k]);
         end;
         writeln;
         end;
 writeln('matriks B');
 for j:=1 to jb do begin
     for k:=1 to jk do begin
         write('B[',j,',',k,'] = ');readln(B[j, k]);
         end;
         writeln;
         end;

 writeln('penjumlahan matriks A dan B ');
 for j:=1 to jb do begin
     for k:=1 to jk do begin
         C[j,k]:= A[j, k] + B[j, k];
         writeln('C[', J,',',K, '] = ',C[j,k]);
         end;
         writeln;
         end;
 readln;
 end.