Vladimir_S

Да так, перестраховка. Паскали - они разные бывают. У некоторых проблемы с совместимостью типов. Поэтому, раз Tem - целочисленный, а аргумент функции Cv - вещественный (real), то, прежде чем отправить Tem в функцию, я принудительно, путем умножения на 1.0, перевожу аргумент в вещественный формат. Скорее всего, это не нужно, но всяко бывает.