请大家用Pascal解决一个问题

请大家用Pascal解决一个问题：任意输入三个字母，判断其在字母表中是否相邻

program panduan;var a,b,c,tmp:char;beginreadln(a);readln(b);readln(c);if a>b then begin tmp:=a; a:=b; b:=tmp; end;if a>c then begin tmp:=a; a:=c; c:=tmp; end;if b>c then begin tmp:=b; b:=c; c:=tmp; end;//对输入的三个字母进行排序if (ord(b)-ord(a)=1)and(ord(c)-ord(b)=1) then writeln('xianglin')else writeln('buxinglin');//通过ASC判断是否相邻，相邻差1end.

这个题的算法是，判断在字母表中是否相邻，就是判断这三个字母的ASCII码差值是否是连续的三个数

根据以上算法，代码就非常好写了。楼上给出的就是代码