MaxLuk_2

DIM N AS LONG, I AS INTEGER, S$
INPUT "Введите N: ", N
S$ = LTRIM$(STR$(N))
FOR I = 1 TO LEN(S$) \ 2
    IF MID$(S$, I, 1) <> MID$(S$, LEN(S$) - (I - 1), 1) THEN
        PRINT "Не палиндром"
        END
    END IF
NEXT I
PRINT "Палиндром"
IF N = 6 OR N = 28 OR N = 496 OR N = 8128 OR N = 33550336 OR N = 8589869056 THEN
    PRINT "Совершенное число"
ELSE
    PRINT "Несовершенное число"
END IF