---

&НаКлиенте
Процедура РассчитатьСумму(Команда)
	
	А = Объект.ЧислоА;
	Б = Объект.ЧислоБ;
	
	Если А >= Б Тогда
		Сообщить("Ошибка: Число А должно быть меньше Числа Б!");
		Возврат;
	КонецЕсли;
	
	Сумма = 0;
	
	Для Счетчик = А По Б Цикл
		Сумма = Сумма + Счетчик;
	КонецЦикла;
	
	Сообщить("Сумма чисел от " + А + " до " + Б + " равна: " + Сумма);
	
КонецПроцедуры