program ex;

var
	N , M	:	longint;
	a , b	:	longint;
	i	:	longint;

begin
	assign ( output , 'G.in' ) ; rewrite ( output );
	randomize;
	N := 5000 ; M := 60000;
	writeln ( N , ' ' , M );
	for i := 1 to N do writeln ( random ( 20000000 ) - 10000000 );
	for i := 1 to M - N + 1 do
	begin
		repeat
			a := random ( N - 1 ) + 2;
			b := random ( a - 1 ) + 1;
		until a <> b;
		writeln ( a , ' ' , b );
	end;
        for i := 1 to N - 1 do writeln ( i , ' ' , i + 1 );
	close ( output );
end.