---

2.5 
program Z25;
const
  eps = 0.5e-6;
var
  a0, a1, x: real;
  n: integer;
begin
  writeln('Введите a0 и x (x > 1):');
  readln(a0, x);

  if x <= 1 then
  begin
    writeln('Ошибка: x должно быть больше 1');
    halt;
  end;

  n := 1;
  repeat
    a1 := sqrt(cos(5 + a0*a0*a0) / exp(n * ln(x)) + 4);
    if abs(a1 - a0) < eps then
      break;
    a0 := a1;
    n := n + 1;
  until false;

  writeln('Предел последовательности = ', a1:0:10);
end.

2.6
program Z26;
const
  eps = 0.5e-6;
var
  a0, a1, x: real;
  n: integer;
begin
  writeln('Введите a0 и x:');
  readln(a0, x);

  n := 1;
  repeat
    a1 := sqrt(4 + x * cos(1 - a0*a0*a0) / exp(n * ln(4)));
    if abs(a1 - a0) < eps then
      break;
    a0 := a1;
    n := n + 1;
  until false;

  writeln('Предел последовательности = ', a1:0:10);
end.


2.7
program Z27;
const
  eps = 0.5e-6;
var
  a0, a1, x: real;
  n: integer;
begin
  writeln('Введите a0 и x (x > 1):');
  readln(a0, x);

  if x <= 1 then
  begin
    writeln('Ошибка: x должно быть больше 1');
    halt;
  end;

  n := 1;
  repeat
    a1 := sqrt(25 - cos(x - a0*a0*a0) / exp(n * ln(5)));
    if abs(a1 - a0) < eps then
      break;
    a0 := a1;
    n := n + 1;
  until false;

  writeln('Предел последовательности = ', a1:0:10);
end.

2.8
program Z28;
const
  eps = 0.5e-6;
var
  a0, a1, x: real;
begin
  writeln('Введите a0 и x:');
  readln(a0, x);

  if a0 = 0 then
  begin
    writeln('Ошибка: a0 не должно быть равно 0');
    halt;
  end;

  repeat
    a1 := (4 * a0 + x / (a0*a0*a0*a0)) / 5;
    if abs(a1 - a0) < eps then
      break;
    a0 := a1;
  until false;

  writeln('Предел последовательности = ', a1:0:10);
end.

2.9 
program Z29;
var
  n: integer;
  a, b: real;
begin
  writeln('Введите b:');
  readln(b);

  if b <= 0 then
  begin
    writeln('Таких элементов нет, так как a_n > 0 для всех n');
    halt;
  end;

  n := 1;
  repeat
    a := 1 / (n*n + 3);
    if a < b then
      break;
    n := n + 1;
  until false;

  writeln('Первый номер n, при котором a_n < b: ', n);
  writeln('Значение a_n = ', a:0:10);
end.

2.10
program Z210;
const
  eps = 0.5e-6;
var
  a0, a1, x: real;
  n: integer;
begin
  writeln('Введите a0 и x:');
  readln(a0, x);

  n := 1;
  repeat
    a1 := x - cos(1 - a0*a0) / exp(n * ln(2));
    if abs(a1 - a0) < eps then
      break;
    a0 := a1;
    n := n + 1;
  until false;

  writeln('Предел последовательности = ', a1:0:10);
end.

2.11
program Z211;
const
  eps = 0.5e-6;
var
  a0, a1, x: real;
  n: integer;
begin
  writeln('Введите a0 и x (x > 1):');
  readln(a0, x);

  if x <= 1 then
  begin
    writeln('Ошибка: x должно быть больше 1');
    halt;
  end;

  n := 1;
  repeat
    a1 := 5 + sin(1 + a0) / exp(n * ln(x));
    if abs(a1 - a0) < eps then
      break;
    a0 := a1;
    n := n + 1;
  until false;

  writeln('Предел последовательности = ', a1:0:10);
end.


2.12
program Z212;
const
  eps = 0.5e-6;
var
  a0, a1, x: real;
  n: integer;
begin
  writeln('Введите a0 и x (x > 1):');
  readln(a0, x);

  if x <= 1 then
  begin
    writeln('Ошибка: x должно быть больше 1');
    halt;
  end;

  n := 1;
  repeat
    a1 := sqrt(sin(5 + a0*a0*a0) / exp(n * ln(x)) + 4);
    if abs(a1 - a0) < eps then
      break;
    a0 := a1;
    n := n + 1;
  until false;

  writeln('Предел последовательности = ', a1:0:10);
end.





FAx0LEw561SQOIXmtfvq40LQOhSTx13G