求大神秒解
var nd,nl,no:integer; ch:char; letters:set of char; digit:set of '0'..'9';begin letters:=['a'..'z']; digit:=['0'..'9'];
repeat read(ch); if ch in letters then nl:=nl+1 else if ch in digit then nd:=nd+1 else no:=no+1; until ch='?';
writeln(nd:4,nl:4,no:4); readln;end.

var
nd,nl,no:integer;
ch:char;
letters:set of char;
digit:set of '0'..'9';
begin
letters:=['a'..'z'，'A'..'Z'];
digit:=['0'..'9'];
repeat
read(ch);
if ch in letters then nl:=nl+1
else if ch in digit then nd:=nd+1
else no:=no+1;
until ch='?';
writeln(nd:4,nl:4,no:4);
readln;
end.

这题想出来为什么会exitcode=201了吗？我也遇到同样的问题，找不出原因

201是数组出界吧,.
有可能是数组上下标出界. 也有可能是数据溢出.