Assign (F 'date out'); Rewrite (F); Min:=0 ; For I;=1 to N do Begin S[F]:= 0; For J:=1 to M do S[I]:= S[I]+A[I,J]; Write (t, S[I],' ' ); if (min=0) or (s[I]min) the min = S[I] end writelen (f); For I:= 1 to N do If s[I] = min then write (F,I, ' '); close (F) end.