function EExecGA(OOO,Spis,Att)
{
	Result=false;
	if (Spis.length<0) 
	{	
		TOEmpty_Create(OOO,Att);
		Result=true;
		return Result
	}
	
	OB=Spis[0];
	
	S=OB.B;

	for( I=1; I<Spis.length; I++) 
	{
		OB=Spis[I];
		S=S && OB.B;
	}
	
	TOUsl_Create(OOO,S,Att);
	Result=true;
	return Result;
} // EExecGA