uses wincrt;
const
     imaks = 10;
     jmaks = 10;                                                                

type larikint = array[1..imaks,1..jmaks] of integer;
var
x,y,z:larikint;
n,m,i,j:integer;

procedure baca(n,m:integer; var x:larikint);

begin
for i:=1 to n do
begin
     for j:=1 to m do
     begin
     readln(x[i][j]);
     end;
end;
end;
procedure cetak(n,m:integer; x:larikint);
begin
for i:=1 to n do
begin
     for j:=1 to m do
     begin
     write(x[i][j]);
     end;
     writeln;
end;
end;
procedure jumlah(n,m:integer; x,y:larikint; var z:larikint);
begin
for i:=1 to n do
begin
     for j:=1 to m do
     begin
     z[i][j]:=x[i][j]+y[i][j];
     end;
end;

end;

{program utama}
begin
write('input banyaknya baris : '); readln(n);
write('input banyaknya kolom : '); readln(m);
writeln('baca data 1: ');
baca(n,m,x);
writeln('baca data 2 : ');
baca(n,m,y);
writeln('cetak data 1 : ');
cetak(n,m,x);
writeln('cetak data 2 : ');
cetak(n,m,y);
jumlah(n,m,x,y,z);
writeln('hasil jumlah : ');
cetak(n,m,z);
end.