var a:array [1..100,1..100] of integer;
n,m,i,j,s:integer;
begin
writeln ('Введите Кол-во строк ');
readln (n);
writeln ('Введите Кол-во столбцов ');
readln (m);
for i:=1 to n do
for j:=1 to m do
readln (a[i,j]); 
writeln ('Ваш массив ');
for i:=1 to n do
begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
for i:=1 to n do begin
s:=0;
for j:=1 to m do
s:=a[i,j]+s;
writeln ('Cумма элементов ' ,i,' строчки равна ',s);
end;
end.