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.