Помогите решить ** Pascal срочно!

Question

Помогите решить на Pascal срочно!

---

Answer 1

Я ее решал на олимпиаде но на Python

a=int(input())

b=[]

for r in range(1,a+1):

   b.append(r)

print(b)

a=len(b)

while a!=1:

   for r in range(int(a/2)):

       result=int(input())

       if result==1:

           del b[r+1]

       elif result==2:

           del b[r]

       print(b)

   a=len(b)

print(b[0])