var
	tmp:DQE2_Object;

procedure Prepare(Q:integer);
begin
	case Q of
		0:AddAnswer(0);
	end;
end;

function OnAnswer(Q,A:integer):integer;
begin
	result:=-1;
	if Q=-1 then
		result:=0
	else
	case Q of
		0:case A of
				0:result:=1;
			end;
	end;  
end;