对编号1-100的卡片叠卡片进行（1）把最上面p帐抽到最底；（2）从这些卡片中抽出最上面q张。反复进行上述两个操作指导全部都被抽出。A.p=q=1，按原先的顺序抽，则输出的顺序是怎样B.p=q=1，要求输出的顺序是1，2，3，……100。这些卡片原来应按什么顺序排?C.p=q=2,要求输出的顺序是1，2，3，……100。这些卡片原来应按什么顺序排?

第一个我知道program 123； const Zhangshu=100；Jiange=1； var BianHao:array[1..Zhangshu]of word; i,j,k,jj :word;begin for i:=1 to Zhangshu-1 do BianHao[i]:=i+1; BianHao[Zhangshu]:=1; j:=Zhangshu; for i:=1 to Zhangshu do begin for k:=0 to Jiange do begin jj:=j; j:=BianHao[j];end; write(j:8);if i mod 8=0 then writeln; BianHao[jj]:=BianHao[j]; end; writeln;readlnend. B：老师说加几句，我忘了C：不知道怎么改，就在以上的基础教我改。以上两个都按上面的程序的基础改，谢谢