Question

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

Answer 1

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.

Answer 2

довольно затасканная задача