Даны натуральное число k, действительное число а (а > 0). Последовательность x0, x1,… образована по закону:

program Project1;
uses
  crt, math;
const
  eps = 1e-4;
var
  i: integer; // Переменная для счета.
  a: real; // Переменная для хранения значения аргумента a.
  k: integer; // Переменная для хранения значения аргумента k.
  x1,x2: real; // Переменные для хранения значений вычисления.
begin
  writeln('Введите натуральное число k:');
  Readln(k);
  writeln('Введите действительное положительное число a:');
  repeat
    Readln(a);
    if a <= 0 then
      writeln('Ошибка ввода! Попытайтесь снова');
  until a > 0;
  x2:= a;
  i:= 0;
  repeat
    x1:= x2;
    writeln;
    writeln('x',i,' = ',x1:0:6);
    x2:= ((k - 1)/k)*x1 + a/power(x1,k-1);
    writeln('x',i+1,' = ',x2:0:6);
    delay(1000);
    writeln('eps: ', abs(power(x2,k)- a):0:6);
    inc(i);
  until abs(power(x2,k)- a) < eps;
  writeln('X',i+1,' = ',x2:0:6);
  Readln;
end.