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.