{* Задача220 *}

REM basic

' Ввести число в диапазоне от (-10'000) до 0 и определить, сколько в нем знаков.


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