{* Задача179 *}

REM basic

' Ввести целое число Х в диапазоне 0 < X < 100000.
' Определить сколько цифр в него входит.


CLS
INPUT "Введите Х ", X
If X < 10 Then
      Y = 1
   ElseIf X < 100 Then
      Y = 2
   ElseIf X < 1000 Then
      Y = 3
   ElseIf X < 10000 Then
      Y = 4
   Else
      Y = 5
End If
PRINT "Число"; X; "состоит из"; Y; "цифр."
End