program soucet;
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 pom:matice);
begin
  for i:=1 to r do
    for j:=1 to s do
      readln(pom[i,j]);
end;
procedure uprav(r,s:integer; pom1,pom2:matice;var pom3:matice);
begin
  for i:=1 to r do
    for j:=1 to s do
      pom3[i,j]:=pom1[i,j]+pom2[i,j];
end;
procedure vypis(r,s:integer; var pom:matice);
begin
  for i:=1 to r do
  begin
    writeln;
    for j:=1 to s do
      write(pom[i,j]:4);
  end;
end;
begin
  writeln('Zadej rozmer matic:');
  readln(m,n);
  writeln('Zadej matici A:');
  nacti(m,n,a);
  writeln('Zadej matici B:');
  nacti(m,n,b);
  uprav(m,n,a,b,c);
  writeln('Matice C:');
  vypis(m,n,a);
  writeln;
  vypis(m,n,b);
  writeln;
  vypis(m,n,c);
  readln;
end.