Задачка в QuickBasic

[alexeyTTT]

Задачка в QuickBasic

Проверить, является ли заданное натуральное число палиндромом, то есть таким
числом, десятичная запись которого читается одинаково слева направо и справа налево.

 

[iks2]

DECLARE FUNCTION M$ (n!)
CLS
DIM SHARED A AS STRING

INPUT "A = "; A
n = LEN(A)

FOR i = 1 TO n \ 2
   IF M(i) <> M(n - (i - 1)) THEN
      PRINT "NO"
      END
   END IF
NEXT

PRINT "YES"
END

FUNCTION M$ (n)
   M = MID$(A, n, 1)
END FUNCTION