var vorota_w_r, vorota_h_r, ploshch_r, var_num_r, var_num_1_r, var_num_2_r, var_total_r, var_total_all_r, temp_r, cost_r;
function plosch_r()
{
    vorota_w_r = 0;
	vorota_h_r = 0;
	ploshch_r = 0;
	temp_r = 1;
    vorota_w_r = document.vorota_r.w_vor_r.value;
    vorota_h_r = document.vorota_r.h_vor_r.value/100;
	vorota_w_r = vorota_w_r/100;
	ploshch_r = vorota_w_r * (vorota_h_r/100);
	document.vorota_r.plosch_vor_r.value = ploshch_r;
}
<!-- Activate Cloaking Device
var recnum_r="";
// Used to initialize arrays.
function initArray_r() 
   {
   this.length = initArray_r.arguments.length;
   for (var i = 0; i < this.length; i++) 
      { this[i] = initArray_r.arguments[i]; }
   }
// Creating arrays.
var var_coeff_r = new initArray_r();
var address_r = new initArray_r();
var_coeff_r[1] = "65";
address_r[1] = "340";
var_coeff_r[2] = "72";
address_r[2] = "340";
var_coeff_r[3] = "85";
address_r[3] = "340";
var_coeff_r[4] = "80";
address_r[4] = "340";
var_coeff_r[5] = "82";
address_r[5] = "340";
var_coeff_r[6] = "60";
address_r[6] = "340";
// Called by onClick for each radio button - determines & displays message and URL.
function dataBase_r(vorota_r)
   {
   for (var i = 0; i < 6; i++) 
      {
      if (vorota_r.zash_r[i].checked) 
         { recnum_r = vorota_r.zash_r[i].value; }
      }
   if (  (var_coeff_r[recnum_r] != null)  &&  (var_coeff_r[recnum_r] != "")  ) 
      { var_num_1_r =  var_coeff_r[recnum_r];
	  	var_num_2_r =  address_r[recnum_r];
	  	 }
var_total_r = ploshch_r * var_num_1_r + var_num_2_r * 1;
document.vorota_r.total_var_r.value = var_total_r;
	}
<!-- Activate Cloaking Device
var avtnum_r="";
// Used to initialize arrays.
function initAvtArray_r() 
   {
   this.length = initAvtArray_r.arguments.length;
   for (var i = 0; i < this.length; i++) 
      { this[i] = initAvtArray_r.arguments[i]; }
   }
// Creating arrays.
var avt_coeff_r = new initAvtArray_r();
avt_coeff_r[1] = "0";
avt_coeff_r[2] = "850";
avt_coeff_r[3] = "980";
avt_coeff_r[4] = "1140";
// Called by onClick for each radio button - determines & displays message and URL.
function end_dataBase_r(vorota_r)
   {
   for (var i = 0; i < 4; i++) 
      {
      if (vorota_r.avt_r[i].checked) 
         { avtnum_r = vorota_r.avt_r[i].value; }
      }
   if (  (avt_coeff_r[avtnum_r] != null)  &&  (avt_coeff_r[avtnum_r] != "")  ) 
      { avt_num_1_r =  avt_coeff_r[avtnum_r]*1;
	  	}
var_total_2_r = var_total_r * 1 + avt_num_1_r * 1;
document.vorota_r.total_var_2_r.value = var_total_2_r;
	}
function opt_r()
        {
        cost_r = 0;
        if (document.vorota_r.opt_1_r.checked) { cost_r = cost_r + 355;}
        if (document.vorota_r.opt_2_r.checked) { cost_r = cost_r + 295;}
        if (document.vorota_r.opt_3_r.checked) { cost_r = cost_r + 85;}
        if (document.vorota_r.opt_4_r.checked) { cost_r = cost_r + 250;}
        

		
var_total_all_r = var_total_2_r * 1 + cost_r * 1;
document.vorota_r.total_var_all_r.value = var_total_all_r;
        
		}