program E20;
const n = 3;
var b: array [1..n, 1..n] of integer; i,j: integer;
    a: array [1..n] of integer;
begin
  writeln('введіть значення елементів таблиці порядково');
  writeln('у кінці кожного рядка натискуйте Enter');
  for i:=1 to n do
    begin
     for j:=1 to n do
       read(b[i,j]);
    writeln
  end;
{побудова масиву найбільших значень елементів рядків таблиці}
 for i:=1 to n do
   begin
     a[i] := b[i,1];
     for j := 2 to n do
       if a[i] < b[i,j]
       then a[i] := b[i,j];
   end;
writeln('найбільші числа рядків таблиці');
for i := 1 to n do
   writeln(a[i])
end.