uses crt; var n,x,y,d:longint; begin clrscr; readln(n); x := n; d := 0; while n <> 0 do begin n := n div 10; d := d + 1; end; y := 0; while x <> 0 do begin y := y + x mod 10; x := x div 10; end; if d = 4 then writeln('Tong chu so la ',y) else writeln('Wrong Number'); readln; end.