---

&НаКлиенте
Процедура РассчитатьВвестиЧисло(Команда)
	
	А = 0; Б = 0; В = 0;
	
	ВвестиЧисло(А, "Введите коэффициент A");
	ВвестиЧисло(Б, "Введите коэффициент B");
	ВвестиЧисло(В, "Введите коэффициент C");
	
	Дискриминант = (Б * Б) - (4 * А * В);
	Сообщить("Дискриминант D = " + Дискриминант);
	
	Если Дискриминант >= 0 Тогда
		КореньИзD = Pow(Дискриминант, 0.5);
		Х1 = (-Б + КореньИзD) / (2 * А);
		Х2 = (-Б - КореньИзD) / (2 * А);
		
		Сообщить("X1 = " + Х1);
		Сообщить("X2 = " + Х2);
	Иначе
		Сообщить("Действительных корней нет!");
	КонецЕсли;
	
КонецПроцедуры