const n = 5; m = 6; var i, j, k, max :integer; a :array [1..n,1..m] of integer; b :array [1..n] of integer; begin for i:= 1 to n do for j:= 1 to m do readln(a[i,j]); k:= 1; for i:= 1 to n do begin max:= a[i,1]; for j:= 1 to m do if a[i,j] > max then max:= a[i,j]; b[k]:= max; inc(k); end; for i:= 1 to n do write(b[i],' '); end.