学习电脑信息用while循环获得逆序数

用while循环获得逆序数用while循环获得逆序数，输入 1369   输出 9631      readln(n);s:=0;while n>0 do    begin    x:=n mod 1