var i,j,k,l,m,n:longint; a:array[0..1000000,1..2] of longint; begin assign(input,'candy10.in'); reset(input); read(i,i,i,i); for i:=1 to 1000000 do read(a[i,1],a[i,2]); end.