program matricu_sudetis;
var i, j, a, b, n, x1, y1, x2, y2 : integer;
 m1:array [1 .. 10,1 .. 10] of integer;
 m2:array [1 .. 10,1 .. 10] of integer;
 m3:array [1 .. 10,1 .. 10] of integer;
begin

 Writeln ('iveskite matricos eiluciu ir stulpeliu skaiciu:');
 read (a, b);
 
 Writeln ('iveskite matricos elementus:');
   for i:=1 to a do
    for j:=1 to b do
    begin
    write('m1[', i, ',',j,']=');
    read (m1[i,j]);

    end;
 writeln('Duota matrica: ');
    for i:=1 to a  do
    begin
     for j:=1 to b do
     write(m1[i, j]:5);
     writeln;
     
    end;
    x1:=a-1; y1:=b-1;
Writeln ('iveskite matricos eiluciu ir stulpeliu skaiciu:');
read (a, b);
 
Writeln ('iveskite 2-os matricos elementus:');
    for i:=1 to a do
     for j:=1 to b do
     begin
     write('m2[', i, ',',j,']=');
     read (m2[i,j]);

     end;
   writeln('Duota matrica: ');
   for i:=1 to a do
   begin
     for j:=1 to b do
      write( m2[i,j]:5);
      writeln;
   end;
    x2:=a-1; y2:=b-1;
writeln ('sudeta matrica:');

if (y1=x2)
  then
   begin
	for i:=1 to x1 do
      begin
		for j:=1 to y2 do
       begin
			m3[i,j]:=0;
			for n:=1 to x2 do
              begin
					m3[i,j]:=m3[i,j]+ ( m1[i,n] + m2[n,j]);
              end;
            write(m3[i, j]:5);
       end;
		writeln;
      end;
end
else
 begin
  writeln('negalima sudeti');
end;
{writeln('Gauta matrica: ');
  for i := 1 to a do
    begin
      for j := 1 to b do
         write(m3[i, j]:5);
         writeln;
    end;}
readln;
readln;
end.