题目：
题目描述
在初赛普及组的“阅读程序写结果”的问题中，我们曾给出一个字符串展开的例子：如果在输入的字符串中，含有类似于“d-h”或者“4-8”的字串，我们就把它当作一种简写，输出时，用连续递增的字母获数字串替代其中的减号，即，将上面两个子串分别输出为“defgh”和“45678”。在本题中，我们通过增加一些参数的设置，使字符串的展开更为灵活。具体约定如下：
(1) 遇到下面的情况需要做字符串的展开：在输入的字符串中，出现了减号“-”，减号两侧同为小写字母或同为数字，且按照ASCII码的顺序，减号右边的字符严格大于左边的字符。
(2) 参数p1：展开方式。p1=1时，对于字母子串，填充小写字母；p1=2时，对于字母子串，填充大写字母。这两种情况下数字子串的填充方式相同。p1=3时，不论是字母子串还是数字字串，都用与要填充的字母个数相同的星号“*”来填充。
(3) 参数p2：填充字符的重复个数。p2=k表示同一个字符要连续填充k个。例如，当p2=3时，子串“d-h”应扩展为“deeefffgggh”。减号两边的字符不变。
(4) 参数p3：是否改为逆序：p3=1表示维持原来顺序，p3=2表示采用逆序输出，注意这时候仍然不包括减号两端的字符。例如当p1=1、p2=2、p3=2时，子串“d-h”应扩展为“dggffeeh”。
(5) 如果减号右边的字符恰好是左边字符的后继，只删除中间的减号，例如：“d-e”应输出为“de”，“3-4”应输出为“34”。如果减号右边的字符按照ASCII码的顺序小于或等于左边字符，输出时，要保留中间的减号，例如：“d-d”应输出为“d-d”，“3-1”应输出为“3-1”。
输入输出格式
输入格式：
输入文件expand.in包括两行：
第1行为用空格隔开的3个正整数，一次表示参数p1，p2，p3。
第2行为一行字符串，仅由数字、小写字母和减号“-”组成。行首和行末均无空格。
输出格式：
输出文件expand.out只有一行，为展开后的字符串。
作者思路：虽说这是提高组的难度，但这个你只要认真模拟一下（挺烦的）你就过了。
代码：
var a,b,c,i,j,m:longint;
ch:char;
st,st1,st2:ansistring;
begin
readln(a,b,c);
readln(st);
if a=2 then
m:=ord('a')-ord('A') else m:=0;
if st<>'' then st1:=st[1];
for i:=2 to length(st)-1 do
begin
if (st[i]='-') and ((st[i-1] in ['0'..'9']) and
(st[i+1] in ['0'..'9']) or (st[i-1] in ['a'..'z']) and
(st[i+1] in ['a'..'z'])) and (st[i-1]<st[i+1]) then
begin
st2:='';
if succ(st[i-1])=st[i+1] then continue;
if a=3 then
for ch:=succ(st[i-1]) to pred(st[i+1]) do
for j:=1 to b do
st2:=st2+'*'
else
if c=1 then
for ch:=succ(st[i-1]) to pred(st[i+1]) do
for j:=1 to b do
st2:=st2+chr(ord(ch)-ord(ch in ['a'..'z'])*m)
else
for ch:=pred(st[i+1]) downto succ(st[i-1]) do
for j:=1 to b do st2:=st2+chr(ord(ch)-ord(ch in ['a'..'z'])*m);
st1:=st1+st2;
continue;
end;
st1:=st1+st[i];
end;
st1:=st1+st[length(st)];
writeln(st1);
end.
