Загрузка данных

&НаКлиенте
Функция ПлощадьКруга(Радиус)
    Пи = 3.14;
    Возврат Пи * Радиус * Радиус;
КонецФункции

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    Радиус = 0;
    Если ВвестиЧисло(Радиус, "Введите радиус круга:", 10, 2) Тогда
        Площадь = ПлощадьКруга(Радиус);
        ПоказатьОповещениеПользователя(
            "Результат",
            ,
            "Площадь круга с радиусом " + Радиус + " равна " + Площадь
        );
    КонецЕсли;
КонецПроцедуры