Palindrome or not

CLS
INPUT " Enter any number";N
A = N
S = 0
WHILE N < > 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
IF A = S THEN
PRINT " The given no is palindrome"
ELSE
PRINT " The given no is not palindrome"
END IF
END

Reverse of digits

ClS
INPUT " Enter any number ";N
S = 0
WHILE N < > 0
R = N MOD 10
S = S * 10+ R
N = N \ 10
WEND
PRINT " Sum of reverse digits ";S
END

Product of digits

CLS
UNPUT " Enter any number";N
P = 1
WHILE N < > 0
R = N MOD 10
P = P * R
N = N \ 10
WEND
PRINT " Product of digits ";P
END

Sum of digits

CLS
INPUT " Enter any number";N
S = 0
WHILE N  < > 0
R = N MOD 10
S = S + R
N = N \ 10
WEND
PRINT" Sum of digits";S
END

Greatest among three number

CLS
INPUT " Enter any number";N
IF A > B and B > C THEN
PRINT " The greatest number is ";A
ELSEIF B > and B > C THEN
PRINT " The greatest number is ";B
ELSE
PRINT " The greatest number is" ";C
END

Display odd or even

CLS
INPUT " Enter any number";N
IF N MOD 2 = 0 THEN
PRINT " The number is even"
ELSE
PRINT " The number is odd"
END IF
END

Positive, Negative or zero

CLS
INPUT " Enter any number";N
IF N >0 THEN
PRINT " The number is positive "
ELSEIF N < 0 THEN
PRINT " The number is negative"
ELSE
PRINT" The number is zero"
END IF
END