[Kapitoshka438]

Код:

const
  N = 7;

function F(X: Integer; B: Double): Double;
begin
  Result := 1 / Cos(X) + Ln(Abs(Tan(X / 2))) + B * B - 3 / X - 6;
end;

var
  I: Integer;
  B: Double;
  X: array [1..N] of Integer;
  F: array [1..N] of Double;
begin
  Read(B);
  X[1] := 2;
  Y[1] := F(X[1], B);
  I := 2;
  while I <= N do
  begin
    X[i] := X[I - 1] + 3;
    Y[i] := F(X[i], B);
    Inc(I);
  end;
  ...
end.

Че-то типа этого.