Sum_Digit_and_Digit_SQRT

## //Сумма цифр + цифровой корень
var n := ReadInteger;
var sum := 0;
var b := n.ToString;//перевод в строку
for var i:=1 to b.Length do
  begin
    sum += n mod 10;
    n := n div 10; //укорачиваю число на 1 цифру
  end;
Println(sum);
var digit := sum;
while digit > 9 do digit -= 9;
Print(digit);
// прога работает ТОЛЬКО с INTEGER!!!