процедура конец()
		 		завершитьработусистемы();
		конецпроцедуры

		процедура пройтись()
			Total= 0 ;
			спр=создатьобъект("справочник.Family_Budget");
		 	спр.выбратьэлементы();
		        пока спр.получитьэлемент()= 1  
		        цикл
		        Total=Total+спр.Cost;
		 	    сообщить("Складываем:"+спр.Cost);;
		 	    конеццикла ;
		 	сообщить("Total:"+Total);;
		конецпроцедуры