а=3; б=8; ц=-11; // ответ: х1=-11/3 (3.(6)) , х2=1
сообщить("");
сообщить("***********************************************************");
сообщить("               РЕШАЕМ КВАДРАТНОЕ УРАВНЕНИЕ ");
сообщить("***********************************************************");
сообщить("а="+строка(а));
сообщить("б="+строка(б));
сообщить("ц="+строка(ц));
сообщить("***********************************************************");
сообщить("РЕШЕНИЕ:");

дискриминант= б*б - 4*а*ц;

если     дискриминант<0 тогда
	сообщить("Дискриминант меньше 0. Уравнение не имеет решений.");
иначеЕсли 	дискриминант=0 тогда
	корень= - б / (2*а);
	сообщить("Дискриминант равен 0. корень="+строка(корень));
иначе
	корень1= (- б + кореньКвадратный(дискриминант) ) / (2*а);
	корень2= (- б - кореньКвадратный(дискриминант) ) / (2*а);

	сообщить("Дискриминант равен "+строка(дискриминант));
	сообщить("корень1="+строка(корень1));
	сообщить("корень2="+строка(корень2));
конецЕсли;

сообщить("Уравнение решено");
сообщить("");