// ଠ 줮-⭠ ⭠  2004 .  
${(1. ன ⠡)  
// ਧ  㫥 ⮫殢
&PrintZeroFld(N,2,0)=1; // 1-, 0- 
$}(1. ன ⠡)  
//  
#(N,8,0)=_(1);  
#podr(C,30,0)=_();  
#noved(C,15,0)=_(PrintNumb);  
#dataf(C,10,0)=_(3);  
#1(,7,0)=(7);  
#2(,2,0)=(3);  
#dn(C,10,0)=_(01.,1);  
#dk(C,10,0)=_(2,.,1);  
//  
$BEG_SCRIPT  
  
  UnloadScriptModule("dmodules");  
  LoadScriptModule("dmodules");  
    UnloadDynamicModules();  
  UnloadScriptModule("dmodules");  
  
  LoadScriptModule("forms\\obor_ved");  
    PrintSOborVed(podr,noved,dataf,dn,dk,PrintZeroFld);  
  UnloadScriptModule("forms\\obor_ved");  
  
$END_SCRIPT  
$