Определить количество цифр в десятичной записи целого положительного числа.

• var
  count, N: integer;
• begin
  Read\(N\);
• count := 0;
• While N>0 do
  begin
• N:= N div 10;
• count := count+1;
• end;
• Write \(count\)
• end.