DenMal_3

Program Lab;
Uses
    Crt;
Const
    E = 2.7182818284590452;
Var
    X, Z, B: Real;
Begin
    ClrScr;
    X:= 1;
    While X <= 2.2 Do Begin
      Z:= 0.6;
      While Z <= 2.2 Do Begin
        B:= Exp(Sqrt(Z) * Ln(E)) + Exp((1 / 3) * Ln(Exp(4 * Ln(X)))) *
          (1 + (X - (Z / X)) / (X + (Z / X))) * Abs(Sin(Z)) - 3.1;
        WriteLn('X = ', X:6:2, '; Z = ', Z:6:2, '; F = ', B:4:8);
        Z:= Z + 0.2;
      End;
      ReadLn;
      X:= X + 0.3;
    End;
End.