// aPars[1,1] - код группы
// aPars[1,2] - массив сумм в тысячах, по которым проходят скидки
// aPars[1,3] - массив соответственно, процентов скидок
// aPars[2,2] - сумма по группе
aVars[5,3] := 0
aVars[5,1] := ASCAN(aPars[1,2],aVars[5,2])
IF(aVars[5,1] != 0," Группа "+aPars[1,1]+" скидка "+STR(aPars[1,3,aVars[5,1]],5,2)+" % сумма скидки "+STR(aPars[2,2]*aPars[1,3,aVars[5,1]]/100,15,2)+" с суммы "+STR(aPars[2,2],15,2)+CHR(13)+CHR(10),"")
