PROGRAM p3;
var a:array[1...13] of booleam;
i,t,s,k,p:integer;
begin
for i:=1 to 13 do
a[i]:=true;
i:=1；t:=0;s：=2；p:=0;k:=0;
repeat
while p<>i do
begin
k:=k+1;
if k>13 then k:=1;
if a[k] then p:=p+1;
end;
a[k]:=false;
t :=t+1;
i:=i+s;s:=s+1;
until t=8;
write(k:6);
readln;
end.

挽