Срочно !!!!!!! писать ** паскале

Question

Срочно !!!!!!! писать на паскале

---

Answer 1

begin

 var s := (ReadInteger()).ToString;

 repeat

   var sum := 0;

   for var i := 1 to s.Length do

     sum += s[i].toDigit;

   s := sum.ToString;

 until s.Length = 1;

 s.Println;

end.

---