Ответ:

program dfg;

var

count: Integer;

n: Real;

begin

ReadLn(n);

if n< 2000000 then begin

while n <> 0 do begin

if n = 0 then break;

n:= n / 10;

n:= Trunc(n);

count:= count + 1;

end;

WriteLn(count);

end;

if n >= 2000000 then WriteLn('n < 2000000 !!!!');

readln;

end.