Program Variant_8;
uses crt;
type mas=array[1..20, 1..20] of integer;

var n, i, j: integer;
    v:array[1..40] of integer;
    a:mas;

procedure Vector(a:mas);
var x, y, i, j, max : integer;
begin
   for i := 1 to 2 * n - 1 do
   begin
        if (i <= n) then
        begin
           x := i;
           y := 1;
        end
        else
        begin
           x := n;
           y := i - n + 1;
        end;
                
        while((x > 0) and (y <= n)) do
        begin
             if a[x, y] > max then
                max := a[x, y];
             x := x - 1;
             y := y + 1;
        end;

        v[i] := max;
   end;
end;

begin
   write('n=');
   readln(n);
   writeln(‘Enter ',n*n,' of elements of a matrix:');
   for i := 1 to n do
       for j := 1 to n do
       begin
           write('a[',i,',',j,']=');
           read(a[i,j]);
       end;

   writeLn('Initial matrix’);
   for i:=1 to n do
   begin
        for j:=1 to n do
            write(a[i,j]:4);
        writeLn;
   end;

   Vector(a);
   
   writeln('Vector:');
   for i := 1 to 2 * n - 1 do
       write(v[i], ' ');
   writeln;
end.