Answer 1

program HelloDcoder;
var
temp: integer;
count: integer;
begin
temp := 123;
count := 0;
while (temp > 0) do
begin
temp := temp div 10;
count := count+1;
end;
writeln(count);
end.