program PascalGuru;
var A:array[1..50,1..50] of integer;{объявление переменных}
    n,m,i,j,s:integer;
 
function sumai(i:integer):integer;
var j,s:integer;
begin
s:=0;
for j:=1 to m do s:=s+A[i,j];
sumai:=s;
end;
{-----------------------------------}
begin
write('N= ');  readln(n);
write('M= ');  readln(m);
 
 
for i:=1 to n do
for j:=1 to m do begin write('A[',i,',',j,']='); readln(A[i,j]); end;
 
writeln('Vvedennyi massiv:');
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:8);  end;
writeln;
 
write('Vvedite stroky, v kotoroi budet podscitana summa: ');
readln(s);
writeln;
writeln('Summa ',s,' stroki: ',sumai(s));
 
readln;
end.