---

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