program z536; uses crt; var a,b:integer; n:longint; Begin writeln('vvesti chislo'); readln(n); b:=0; while n<>0 do begin a:=n mod 10; n:=n div 10; b:=b+1; end; writeln('b=',b,'a=',a); readln; END.