记录编号	250206	评测结果	AAAAAAAAAA
题目名称	[暑假培训2012] 单词缩写	最终得分	100
用户昵称	菜徐坤	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2016-04-14 18:22:50	内存使用	0.00 MiB

var
i,n,k,j:integer;
s,ls:string;
begin
assign(input,'abbreviation.in');
reset(input);
assign(output,'abbreviation.out');
rewrite(output);
readln(k);
for j:=1 to k do
begin
readln(s);
s:=upcase(s);
n:=length(s);
i:=1;
while i<=n do
begin
while  (s[i]<>' ') and (i<=n)   do
begin
ls:=ls+s[i];
i:=i+1;
end;
if length(ls)>=3 then
if (ls<>'AND') and (ls<>'THE') and (ls<>'FOR') then
write(ls[1]);
ls:='';
i:=i+1;
end;
writeln;
ls:='';
end;
close(input);
close(output);
end.