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.