var i,j,k,ii,n:longint; a,b:array[1..1010] of longint; begin readln(n , k , ii); for i:=1 to n do a[i]:=i; for i:=1 to k do begin for j:=1 to n do if j mod 2 =1 then b[j]:=a[(j+1) div 2] else b[j]:=a[n div 2+j div 2]; for j:=1 to n do a[j]:=b[j]; end; writeln(a[ii]); end. /************************************************************** Problem: 1555 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/