program xx301;
var
s:string;
i,k,j:integer;
begin
i:=1;
s:='123!*&jhfokillltlllabethe';
k:=length(s);
repeat
k:=k-i;
inc(i);
write(s[k]);
until k-i<0;
end.
输出：hello!