pascal帮帮忙判断回文串二读入一行字符，以#结束。这些字符只包含大写字母、小写字母和数字，总长度不超过10000，判断该字符串是否是“回文字符串”。如果是，则输出一个yes,否则

Question

pascal帮帮忙
判断回文串二　
读入一行字符，以#结束。这些字符只包含大写字母、小写字母和数字，总长度不超过10000，判断该字符串是否是“回文字符串”。如果是，则输出一个yes,否则输出一个no。注意：本题中的#只是一个结束符，不包括在字符串内。 同时，本题要严格区分大写字母和小写字母。 　
输入样例1：
abc313cba#
输出样例1：
yes
输入样例2：
Aba#
输出样例2：
no 　　

Answer 1

var s:string; i,j:integer;
begin
readln(s);
i:=1; j:=pos('#',s)-1;
while (i begin inc(i); dec(j); end;
if i>=j then writeln('yes') else writeln('no');
end.