---

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

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

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



2.2
program Z22;
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 + 1);
    if a < b then
      break;
    n := n + 1;
  until false;

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

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

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

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

2.4 
program Z24;
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 := 1 + sin(1 + a0 * a0) / exp(n * ln(x));
    if abs(a1 - a0) < eps then
      break;
    a0 := a1;
    n := n + 1;
  until false;

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