---

&НаКлиенте
Процедура Команда1(Команда)   
	Если Сторона = 0 Тогда
		Сообщить("Сторона куба не может быть равна нулю!");
		Текст = "Сторона куба не может быть равна нулю!";
	Иначе
		Площадь = Сторона*Сторона;
		Площадь2 = 6*Сторона*Сторона;
		Обьем = Сторона*Сторона*Сторона;
		Текст = "Входные данные:" 
		+ Символы.ПС + "Сторона куба a = " + Сторона + " м"
		+ Символы.ПС
		+ Символы.ПС + "Площадь S одной грани = a*a = " + Сторона + "*" + Сторона + " = " + Площадь + " м²"
		+ Символы.ПС + "Площадь S полной поверхности = 6*a*a = " + "6*" + Сторона + "*" + Сторона + " = " + Площадь2 + " м²"
		+ Символы.ПС + "Объём V = a*a*a = " + Сторона + "*" + Сторона + "*" + Сторона + " = " + Обьем + " м³" 
		+ Символы.ПС
		+ Символы.ПС + "Результаты:"
		+ Символы.ПС + "Площадь грани куба = " + Площадь + " м²"
		+ Символы.ПС + "Площадь полной поверхности куба = " + Площадь2 + " м²"
		+ Символы.ПС + "Объём куба = " + обьем + " м³";
	КонецЕсли
КонецПроцедуры

&НаКлиенте
Процедура Команда2(Команда)
	Текст = "";
КонецПроцедуры

&НаКлиенте
Процедура Команда3(Команда)
		Если Радиус = 0 Тогда
		Сообщить("Радиус не может быть равен нулю!");
		Текст1 = "Радиус не может быть равен нулю!" + Радиус; 
		Возврат;
		КонецЕсли;
		Если Высотаа = 0 Тогда
		Сообщить("Высота не может быть равна нулю!");
		Текст1 = "Высота не может быть равна нулю!" + Высотаа; 
		Возврат;
		КонецЕсли;
		ПлощадьБок = 2*3.14159*Радиус*Высота;
		ПлощадьОсн = 3.14159*Радиус*Радиус;
		ПлощадьПолн = 2*3.14159*Радиус*Высота + 2*3.14159*Радиус*Радиус;
		Обьем = 3.14159*Радиус*Радиус*Высотаа;
		Текст1 = "Входные данные:" 
		+ Символы.ПС + "Высота = " + Высотаа + " м" 
		+ Символы.ПС + "Радиус = " + Радиус + " м"
		+ Символы.ПС
		+ Символы.ПС + "Площадь S боковой поверхности = 2πrh = " + Сторона + "*" + Сторона + " = " + Площадь + " м²"
		+ Символы.ПС + "Площадь S полной поверхности = 6*a*a = " + "6*" + Сторона + "*" + Сторона + " = " + Площадь2 + " м²"
		+ Символы.ПС + "Объём V = a*a*a = " + Сторона + "*" + Сторона + "*" + Сторона + " = " + Обьем + " м³" 
		+ Символы.ПС
		+ Символы.ПС + "Результаты:"
		+ Символы.ПС + "Площадь грани куба = " + Площадь + " м²"
		+ Символы.ПС + "Площадь полной поверхности куба = " + Площадь2 + " м²"
		+ Символы.ПС + "Объём куба = " + обьем + " м³"; 
КонецПроцедуры

&НаКлиенте
Процедура Команда4(Команда)
	Текст2 = "";
КонецПроцедуры