program Project2;
type
  matice = array [1..10,1..10] of integer;
var
  i,j,m,n:integer;
  a,b,c:matice;
procedure nacti(r,s:integer; var mat:matice);
begin
  writeln('Zadej prvky matice:');
  for i:=1 to r do
    for j:=1 to s do
      readln(mat[i,j]);
end;
procedure uprav(r,s:integer;var mat:matice;mat1,mat2:matice);
begin
  for i:=1 to r do
    for j:=1 to s do
      mat[i,j]:=mat1[i,j]+mat2[i,j];
end;
procedure vypis(r,s:integer; var mat:matice);
begin
  for i:=1 to r do
  begin
    writeln;
    for j:=1 to s do
      write(mat[i,j]:4);
  end;
end;
begin
  writeln('Zadej rozmer matice:');
  readln(m,n);
  nacti(m,n,a);
  nacti(m,n,b);
  uprav(m,n,c,a,b);
  vypis(m,n,a);
  writeln;
  writeln('+');
  vypis(m,n,b);
  writeln;
  writeln('=');
  vypis(m,n,c);
  readln;
end.