Program dmas_19;
uses crt;
const  m=4;
var a:array[1..m,1..m] of integer;
    Min, Sum, iMin, i, k: integer;
begin
randomize;
  For i:=1 to n do
begin
For k:=1 to n do
begin
a[i,k]:=random(50); 
write(a[I,k]:4);
end;
writeln;
end;
  Sum := 0;
  for k:=1 to M do 
  Sum := Sum + a[1,k];
  Min := Sum; 
  iMin := 1;
  for i:=2 to N do 
  begin
    Sum := 0;
    for k:=1 to M do 
 Sum := Sum + a[i,k];
    if Sum < Min then 
 begin
      Min := Sum;
      iMin := i;
    end;
    end;
    Writeln('Номер строки ',iMin,' Сумма элементов ',Min);
    Readln;
    End.