输入一组字符串。
如 ‘ann’ then 输出‘an'；
如；abcdb’ then 输出‘abcd’；
速度啊、、、、、、、、、、

@abslime

一组字符串是什么意思
var s:string;
begin
readln(s);
writeln(copy(s,1,length(s)-1));
end.

这个题目意思是，如果字符串中有相同的字母就删去，如ann的n和n重复了删掉后面的n，
如abcdb的b和b删去后面的b， 速度啊
。。。。。。。。。。。。。。。。。。。。。。。。

@Fallen_Breath

var s,ans:string;
i:longint;
b:array[0..255] of boolean;
begin
readln(s);
fillchar(b,sizeof(b),true);
ans:='';
for i:=1 to length(s) do
if b[ord(s[i])] then
begin
b[ord(s[i])]:=false;
ans:=ans+s[i];
end;
writeln(ans);
end.

这个可能要开ansistring吧，
过长的话还可以用eoln。
var c:array[0..255] of boolean;
ch:char;
begin
while not(eoln(input)) do begin
read(ch);
if c[ord(ch)]=false then begin
c[ord(ch)]:=true;
write(ch);
end;
end;
end.