program while18;
uses crt;
var
  n,m,k,s:integer;
begin clrscr;
  repeat
    write('n=');
    readln(n);
  until n > 0;
  s:=0;
  k:=0;
  m:=n;
  while m > 0 do
    begin
      s:=s+m mod 10;
      m:=m div 10;
      inc(k);
    end;
  writeln('Число-> ',n, ' Сумма цифр-> ', s ,' Количество цифр-> ',k);
  readln;
end.