program Project2;
type
  matice=array[1..10,1..10] of integer;
var
  soucet,m,n:integer;
  a:matice;
procedure nacti(x,y:integer;var mat:matice);
var
  i,j:integer;
begin
  for i:=1 to x do
    for j:=1 to y do
      readln(mat[i,j]);
end;
function secti(x,y:integer;mat:matice):integer;
var
  s,i,j:integer;
begin
  s:=0;
  for i:=1 to x do
    for j:=1 to y do
      s:=s+mat[i,j];
  secti:=s;
end;
begin
  writeln('Zadej rozmer matice:');
  readln(m,n);
  nacti(m,n,a);
  soucet:=secti(m,n,a);
  writeln('Soucet je ',soucet,'.');
  readln;
end.