как решить задачу по QBasic

[pavelewseew]

Если сумма трех попарно различных действительных чисел x, y ,z меньше еденицы то наименьшее из этих трех чисел заменить полусумой двух оставшихся других в противном случае заменить меншее из x и y полусумой двух оставшихся значений.

[Sazary]

DIM x, y, z AS SINGLE
CLS
INPUT "enter x: "; x
INPUT "enter y: "; y
INPUT "enter z: "; z
IF (x + y + z) < 1 THEN
  IF (x < y) AND (x < z) THEN x = (y + z) / 2
  ELSEIF (y < x) AND (y < z) THEN y = (x + z) / 2
  ELSEIF (z < x) AND (z < y) THEN z = (x + y) / 2
  
ELSE
IF x < y THEN x = (y + z) / 2
  ELSE y = (x + z) / 2

END IF

PRINT USING "x= ##.##  y= ##.##  z= ##.##"; x; y; z

END

[pavelewseew]

спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!