{* Задача91 *}

REM basic

' Вводится положительное целое число B < 10000. Является ли оно палиндромом? Массивы не использовать.


10 { Является ли число палиндромом?
}20 INPUT "Введи целое число не более 10000"; B
30 If B  FIX(B) Or B < 0 Or B > 10000 Then 20
40 A = B: INVERT = 0
50 While A  0
60 INVERT = INVERT * 10 + A Mod 10
70 A = A  10
80 Wend
90 If INVERT = B Then PRINT "Палиндром" Else PRINT "Не палиндром"
100 End