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

[Yaroslav]

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

[Yaroslav]

Yaroslav
Так бы сразу и говорил... Держи:

Код

var x, s: integer;
begin
 write('x = '); readln(x);
 while x >= 10 do
   begin
     s := 0;
     while x > 0 do
       begin
         s := s + (x mod 10);
         x := x div 10;
       end;
     x := s;
   end;
 writeln('root = ', x)
end.

эта программа работает некорректно!!!я ввожу числа и у всеч них цифровой корень равен нулю!!!перерешайте пожалуйста!!!