Галактика в вопросах и ответах

Код: Выделить всё

!»ÑαѼѡ¡δÑ ñ½∩ RTF-«ΓτÑΓ«ó
.var
strNN, kounter, fixkol, breakPage      : word;

CheckKol, PrnOK, bAutoGrM              : boolean;

ìáºóá¡¿Ñ_ä«», è«ñîû_ä«», 
KolGrM, KolOneGrM                      : string;

!ó «ΓτÑΓáσ ó óá½εΓÑ ñ«¬π¼Ñ¡Γá Γá¬ªÑ ¿ß»«½∞ºπεΓß∩ º¡áτÑ¡¿∩ φΓ¿σ »ÑαѼѡ¡δσ
  æΓìäæìáµ,     æΓìáµüì,      æΓìáµæì, 
   Çìäæìáµ,    ÇßΓìáµüì,     ÇßΓìáµæì,
strÇìäæìáµ ,strÇæΓìáµüì,  strÇæΓìáµæì,

sumkolf, sumves, strÇ諽ö, strÇ諽éÑß  : double;

#ifdef _TTN_ALC_
PrnAlc                                 : boolean;
#end

.endvar
.begin

#ifdef _IN_VAL_DOC_
  Cena_PrR := Cena_PrV;
#end
#ifdef _TTN_ALC_
  PrnAlc:=false;
#end

end.

Код: Выделить всё

  bAutoGrM := boGetTune('OPER.SELL.NAKL.CALCGRM');