й=1;
	a=0;b=0;i=0;
	Пока СпрК.ПолучитьЭлемент()=1 цикл
		a=a+А[й];
		b=b+Б[й];

		i=i+С[й];
		й=й+1;
	КонецЦикла;
	Сообщить("Без категории ВСЕГО "+строка(АбезКатегории));
	a=a+АбезКатегории;
	если Число(a)=0 тогда
		c=0;
	иначе
		c=Окр((b/a)*100,2);
	конецЕсли;
	d=a-b;
	если Число(a)=0 тогда
		f=0;
	иначе
		f=Окр((i/a)*100,2);
	конецЕсли;
	a=Формат(a,"Ч015.2");
	b=Формат(b,"Ч015.2");
	i=Формат(i,"Ч015.2");
	c=Формат(c,"Ч015.2");
	d=Формат(d,"Ч015.2");
	f=Формат(f,"Ч015.2");
	Таб.ВывестиСекцию("ш1и");
	СпрК.ВыбратьЭлементы();
	й=1;
	a1=0;b1=0;i1=0;
	Пока СпрК.ПолучитьЭлемент()=1 цикл
		a1=А[й];
		b1=Б[й];
		i1=С[й];
		если Число(a1)=0 тогда
			c1=0;
		иначе
			c1=Окр((b1/a1)*100,2);
		конецЕсли;
		d1=a1-b1;
		если Число(a1)=0 тогда
			f1=0;
		иначе
			f1=Окр((i1/a1)*100,2);
		конецЕсли;
		категория=СпрК.Наименование;

		a1=Формат(a1,"Ч015.2");
		b1=Формат(b1,"Ч015.2");
		i1=Формат(i1,"Ч015.2");
		c1=Формат(c1,"Ч015.2");
		d1=Формат(d1,"Ч015.2");
		f1=Формат(f1,"Ч015.2");
		Таб.ВывестиСекцию("ш1п");
		й=й+1;
	КонецЦикла;
	//---------------------------------------------2 прием
	g1=0;g=0;й=1;
	СпрК.ВыбратьЭлементы();
	Пока СпрК.ПолучитьЭлемент()=1 цикл
		g=g+Г[й];
		й=й+1;
	КонецЦикла;
	g=Формат(g,"Ч015.2");
	Таб.ВывестиСекцию("ш2");
	Таб.ВывестиСекцию("ш2и");
	СпрК.ВыбратьЭлементы();й=1;
	Пока СпрК.ПолучитьЭлемент()=1 цикл
		g1=Г[й];
		категория=СпрК.Наименование;
		g1=Формат(g1,"Ч015.2");
		Таб.ВывестиСекцию("ш2п");
		й=й+1;
	КонецЦикла;