const
    N = 5; M = 3; 
var
    a: array[1..N,1..M] of integer;
    i, j, row_max: byte;
    summa, sum_max: integer;
begin 
    randomize;
    for i:=1 to N do begin
        for j:=1 to M do begin
            a[i,j] := random(100);
            write(a[i,j]:3);
        end;
        writeln;
    end;
 
    sum_max := -1;
    row_max := 0;
    for i:=1 to N do begin
        summa := 0;
        for j:=1 to M do
            summa := summa + a[i,j];
        if summa > sum_max then begin
            sum_max := summa;
            row_max := i;
        end;        
    end;
  
    writeln('Cумма ',sum_max);
    writeln('Строка ',row_max);
end.