请帮忙 - pascal吧

level 2

6、回文数指从左边读和从右边读都一样的数字，例如18181、121、2882等。任意输一个四位数字，判断是否为回文数，如果是回文数输出“yes”，否则输出“no”。（提示：先分离四位数，再判断千位和个位、百位和十位上的数字是否相等。）
输入：1234 输出：no 输入：2882 输出：yes

2016年03月05日 04点03分 1

level 14

var st,st2:string;i:longint;
readln(st);
for i:=1 to length(st) do st2[i]:=st[length(st)+1-i];
if st=st2 then writeln('yes')
else writeln('no');

2016年03月05日 09点03分 2

level 9

最简单的方法把每一位上的数位求出来再比较 [滑稽]

2016年03月18日 13点03分 4