program z531;

      uses crt;

var n,m:LongInt;

k:integer;

BEGIN

    clrscr;

    Writeln('ââåäèòå öåëîå ÷èñëî');

    readln(n);

m:=n;k:=0;

While m<>0 do begin

Inc(k); m:=m div 10;

end;

Writeln(' ÷èñëî',n,'-',k,' öèôð ');

readln;

END.