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.