Ayob_1

Program Lab;
Var
    N, I, J: Integer;
    A: Array [1..100, 1..100] Of Real;
    X: Array [1..100] Of Real;
    Max, Min, G: Real;
Begin
    Repeat
      Write('Input N [2..100]: ');
      ReadLn(N);
    Until (N >= 2) And (N <= 100);
    For J:= 1 To N Do
      For I:= 1 To N Do
        A[I, J]:= ((6.5 - J) * Exp((J - I) * Ln(2))) / (I + 0.3 * J);
    For I:= 1 To N Do Begin
      For J:= 1 To N Do Begin
        If J = 1 Then Begin
          Max:= A[I, J]; Min:= Max;
        End
        Else Begin
          If Max < A[I, J] Then Max:= A[I, J];
          If Min > A[I, J] Then Min:= A[I, J];
        End;
      End;
      X[I]:= Abs(Max) - Abs(Min);
    End;
    G:= 1;
    For I:= 1 To N - 1 Do
      G:= G * ((1 / Abs(X[I] + 1)) + X[I + 1]);
    WriteLn('G = ', G:5:4);
End.