В режиме калибровки: Если эталон 1000, то в переменную РЭ вбиваем "1000", из нее отнимаем значение РО, которому присвоили "0" перед этим, это всё делим на эталон и полученное значение присваиваем переменной ЦД, если РК=TRUE. Правильно я понял?