program Project2; {$APPTYPE CONSOLE} uses SysUtils; var j,i,k,m,n,res,l,r,max:longint; a:array[1..1000,1..1000]of longint; b:array[1..1000]of longint; procedure rec(k,l,r:longint); begin if (k<>n+1)then begin if l