Adam Number Checking

Linux(Finding Adam Number)

echo "Adam Number Checking"
echo "~~~~ ~~~~~~ ~~~~~~~~"
echo "Enter The Number"
read num
sq=`expr $num \* $num`
echo "Square Of Given Number :" $sq
rev=0
while test $sq -gt 0
do
d=`expr $sq % 10`
rev=`expr $rev \* 10 + $d`
sq=`expr $sq / 10`
done
echo "Reverse Of The Square Number :"$rev
rev1=0
while test $num -gt 0
do
d1=`expr $num % 10`
rev1=`expr $rev1 \* 10 + $d1`
num=`expr $num / 10`
done
echo "Reverse Of Given Number :"$rev1
sq1=`expr $rev1 \* $rev1`
echo "Square Of Reverse Number :"$sq1
if test $rev -eq $sq1
then
echo "Given Number Is Adam Number"
else
echo "Given Number Is Not An Adam Number"
fi