模拟阿，很简单

呵呵　　能否告诉详情呢？？／／／／

程序很麻烦,我只大概说一下
1.定义
type
  card=record
         number:integer;
         to:line;
       end;
  line=^card;
2.申明两个line类型变量,然后用他们建一个链表
3.用循环给这个链表里所有节点的number赋值(1到52)
4.先把指针指到2,利用节点的number值将指针以2的倍数向后指,并把指到的节点删掉,直到链表尾部
5.再把指针指到3,重复上面的
6.等指针指到number值是52的节点时,停止,除此之外剩下的节点就是朝上的牌.
7.把剩下节点的number值write出来就完了.