program zada4a10;
var i, j, N : integer;
      H : array[1..100, 1..100] of integer;
begin
    write('Enter N: ');
    readln(N);
    for i := 1 to N do
      for j := 1 to N do   
        begin
          write('H(', i,', ', j, ') = ');
          readln(H[i, j]);
        end;
    for i := 1 to N do write(H[i, i], ' ');
    readln;
end.