цифровой корень числа Опции

[Yaroslav]

помогите решить задачу!!!найти цифровой корень числа через цикл while!!!

[Yaroslav]

Yaroslav
В следующий раз хотя бы точность задавайте...

Код

const
 eps = 0.000001;

var
 x, x0, x1: real;
begin
 write('x = '); readln(x);
 x1 := 1;
 while true do
   begin
     x0 := x1; x1 := 0.5 * (x0 + x/x0);
     if abs(x0 - x1) <= eps then break
   end;

 writeln('sqrt(x) = ', x0:15:10)
end.

Что значит eps=0.000001?
Что значит abs(x0-x1)?
Что значит writeln('sqrt(x) = ', x0:15:10)?
Спасибо за решение задачи!Она работает!