Задача с системой уравнений, Задача с системой уравнений Опции

[P.I.M.P.]

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ . Я НАД НЕЙ УЖЕ НЕДЕЛЮ ПАРЮСЬ

[volvo]

Вот так вот:

function min(x, y: real): real;
begin
  min := x;
  if y < x then min := y;
end;

const
  eps = 1e-6;
var
  A, X0, next: real;

begin
  write('A = '); readln(A);
  if a <= 1 then X0 := min(2*a, 0.95)
  else
    if a < 25 then X0 := a / 5
    else X0 := a / 25;

  {
  ... Вычисление Xслед от Xпред
  }
end.

Только уточни в формуле Xn = там X[n-1] стоит в числителе или в знаменателе?