var i:longint;beginfor i:=1 to 26 dowrite(chr(ord('A')-1+i),' ');end.
for i=65 to 90 write(chr(i));next i不记得pascal具体语句格式了，意思就是这样的。
什么意思阿！
