好吧,.刚学几天pascal刚来这论坛的小菜来解此题.求加分!
可能不是最优解.

PROGRAM p79d;
 VAR
  a,b:ARRAY[1..150]OF integer;
  n,i,j:integer;
  
 FUNCTION assume(n0:integer):integer; {n0为输入的n的值参}
  VAR
   stop:boolean;
   m,l,step:integer;
   c:ARRAY[1..150]OF integer; 
  PROCEDURE find(m0:integer); {该过程判断m是否符合条件}
   VAR
    flag:boolean;
    s,k:integer;
   BEGIN 
    s:=0;
    flag:=true; { 就是漏掉这里让我内牛满脸..}
    REPEAT
     FOR k:=2 TO n0 DO
      BEGIN
       IF c[k]=0 THEN continue; 
       s:=s+c[k];
       IF s=m0 
        THEN BEGIN
         IF (k=2) 
          THEN IF step=1 {判断2是不是最后被拆}
                THEN BEGIN stop:=false;exit END {是,则m是正解,跳出该函数}
                ELSE BEGIN flag:=false;break END; {不是,跳出循环}
         c[k]:=0;
         s:=0;
         dec(step)
             END
      END
    UNTIL flag=false {flag的作用你懂的..}
   END;  
  BEGIN 
   m:=1;
   stop:=true; {stop的作用,m不是正解就控制循环把m递增}
   WHILE stop DO
    BEGIN
     inc(m);
     FOR l:=2 TO n0 DO
      c[l]:=1;      
     step:=n0-1;
     find(m);
    END;
   assume:=m {找到正解了,就把m赋值给函数assume}
  END;
  
  
 BEGIN 
  readln(n);
  i:=0; {i的作用..判断读取了多少个数n,后面需要用}
  WHILE n<>0 DO  {这里看不懂的话就忽略全文吧.. =.=||}
   BEGIN
    inc(i);
    a[i]:=n;   
    readln(n)
   END;
  FOR j:=1 TO i DO 
   BEGIN
    b[j]:=assume(a[j]); 
    writeln(b[j])
   END
 END.

还是我..
调试这个不容易吖,那个flag控制被我完美的忽略了..
搞了半天计算姬还是陷入了死循环..

后来才捉出这个小样flag. 设置为true后大功告成.!

再补充..
其实这条题就是约瑟夫问题的变种.
如果不知道约瑟夫..
那么恭喜你,忽略此题吧.

这条题目的设置. 我不想吐槽了.. 

上网人太多,就拆宿舍楼.. 真有喜感... 但愿楼主住在2号宿舍..