---

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