program Nebelica_1;
var
matr : array of array of real;
vec : array of real;
n, k : integer;
u : real;
begin
  writeln('Enter size:');
  readln(n);
  setlength(matr, n + 1);
  writeln('Matrix:');
  for i : integer := 1 to n do
  begin
    setlength(matr[i], n + 1);
  end;
  for i : integer := 1 to n do
  begin
    for j : integer := 1 to n do
    begin
      matr[i][j] := ((abs(i * j - 3) - 0.3) / (6.5 - j))*sqr(i - j);
    end;
  end;
  for i : integer := 1 to n do
  begin
    for j : integer := 1 to n do
    begin
      write(matr[i][j], ' ');
      (*matr[i][j] := (abs()) div ();*)
    end;
    writeln;
  end;
  SetLength(vec, n + 1);
  k := 0;
  for i : integer := 1 to n do
  begin
    for j : integer := 1 to n do
    begin
      if i = j then
      begin
        vec[k] := matr[i][j];
        k := k + 1;
      end;
    end;
  end;
  write('X = ');
  for i : integer := 1 to n do write(vec[i], ' ');
  writeln;
  u := 1;
  for i : integer := 1 to n - 1 do
  begin
    u := u * vec[i + 1] / (abs(vec[i]) + 1);
  end;
  writeln('U = ', u);
end.