Обработка трёх чисел: утроение и возведение в степень

&НаКлиенте
Процедура ВычислитьЗначения(Команда)   
    // Проверяем и вычисляем число №1
    Если Объект.Число1 >= 0 Тогда
        Объект.РезультатЧисла1 = Объект.Число1 * 3;
    Иначе
        Объект.РезультатЧисла1 = Pow(Объект.Число1, 4);
    КонецЕсли;
    // Проверяем и вычисляем число №2
    Если Объект.Число2 >= 0 Тогда
        Объект.РезультатЧисла2 = Объект.Число2 * 3;
    Иначе
        Объект.РезультатЧисла2 = Pow(Объект.Число2, 4);
    КонецЕсли;
    // Проверяем и вычисляем число №3
    Если Объект.Число3 >= 0 Тогда
        Объект.РезультатЧисла3 = Объект.Число3 * 3;
    Иначе
        Объект.РезультатЧисла3 = Pow(Объект.Число3, 4);
    КонецЕсли;                
КонецПроцедуры