Даны действительные числаx, y (x≠ y). Меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением. Нужно решить в Basic. помогите пожалуйста

DIM x AS DOUBLE, y AS DOUBLECLSINPUT x, yIF x < y THEN   x = (x + y) / 2   y = 2 * x * yELSE   y = (x + y) / 2   x = 2 * x * yEND IFPRINT "x="; x; ", y="; yРезультат? 5.68,3.9x= 54.4144 , y= 4.79