Вычислить для заданного значения а, используя рекуррентное соотношение

const e = 1e-10;
var a, x, x1: real;
begin
  write('a = ');
  readln(a);
  x1 := a;
  repeat
    x := x1;
    x1 := (x + 2 * sqrt(a / x)) / 3
  until abs(x1 - x) < e;
  write('x = ', x1:0:10);
  readln
end.

const e = 1e-10; {точность e = 0.0000000001}
var a, x, x1: real; {описание переменных: аргумент, x[n], x[n+1]}
begin
  write('a = '); {ввод аргумента функции}
  readln(a);
  x1 := a; {x[n+1] = начальное приближение функции}
  repeat {>>>>> повторяем}
    x := x1; {x[n] := x[n+1]}
    x1 := (x + 2 * sqrt(a / x)) / 3 {очередное приближение функции x[n+1]}
  until abs(x1 - x) < e; {>>>>> до тех пор, пока не выполнится условие |x[n+1] - x[n]| < e}
  write('x = ', x1:0:10); {печать результата: x[n+1] с десятью знаками после десятичной точки}
  readln {ждём нажатия <Enter> перед закрытием программы}
end.