ИНФА ВНИЗУ. ПАААААААААААААААААААСКАЛЬ

var     n, s: integer; begin     readln(n);     n := abs(n);          while n > 0 do     begin         s := s + n mod 10;         n := n div 10;     end;            writeln(s); end.