Если сумма трёх действительных чисел меньше 1, то наименьшее из трёх чисел заменить полусуммой  двух других

Приветствую дорогие форумчане, нужна ваша помощь, сколько дней вожусь с задачкой и не получается написать код задачки.

Задача на Delphi 7, и звучит она так:

Если сумма трёх действительных

чисел x,y,z меньше 1 то наименьшее

из трёх чисел заменить полусуммой

двух других, в противном случае

заменить меньшее из x и y

полусуммой оставшихся значений.

За помощь буду очень благодарен.