program matrizes;
uses crt;
type mtx44=array[1..4,1..4] of smallint;
var m1,m2,m3: mtx44;
	i,j: smallint;
	
begin
	writeln('introduz os valores de m1');
	for j:=1 to 4 do
		for i:=1 to 4 do begin
			write('m1[',i,',',j,']:');
			readln(m1[j,i]);
		end;
	clrscr;
	writeln('introduz os valores de m2');
	for j:=1 to 4 do
		for i:=1 to 4 do begin
			write('m2[',i,',',j,']:');
			readln(m2[j,i]);
		end;	
	for j:=1 to 4 do 
		for i:=1 to 4 do 
			m3[j,i]:=m1[j,i]+m2[j,i];
	clrscr;		

	write(#13,#10,'---------m1----------   ----------m2---------   -------m1+m2=m3------',#13,#10);
	for j:=1 to 4 do begin
		write(#13,#10,'---------------------   ---------------------   ---------------------',#13,#10,'|');
			for i:=1 to 4 do 
				write(m1[j,i]:3,' |');
			write('   |');
			for i:=1 to 4 do 
				write(m2[j,i]:3,' |');
			write('   |');
			for i:=1 to 4 do 
				write(m3[j,i]:3,' |');
				
	end;
readln;	
end.