7.7 как вывести НДС которая включена в сумму

Вот такая вот штука немогу вывести НДСку которая включена в сумму, а то что то при проверке сумма не сходится...

//Цены расчитываются обратным пересчетом исходя из
//ставки НДС 18% всегда

НДС = Всего - Всего / 1.18;
Сумма = Всего - НДС;
Цена = Сумма / Количество;

//Важно: если цена получилась с точностью до долей копейки,
//она не округляется до копейки. Вместо этого отбрасывается вся
//дробная часть

Цена = Цел(Цена * 100) / 100;

//Теперь обратно считаем Сумму и НДС

Сумма = Цена * Количество;
НДС = Всего - Сумма;

//В заключение небольшая проверка

Если Окр((Сумма * 1.18), 3) <> Всего Тогда
Сообщить(""+Окр((Сумма * 1.18), 3) +" <> "+Докум.Всего);
КонецЕсли;

заранее спасибо....