var n,m,temp:longint;

a:array[1..9] of longint;

flag:array[1..9] of boolean;

procedure search(x:longint);

var i:longint;

begin

if(x>n) and (temp