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

DIM x AS DOUBLE, y AS DOUBLE
CLS
INPUT x, y
IF x < y THEN
   x = (x + y) / 2
   y = 2 * x * y
ELSE
   y = (x + y) / 2
   x = 2 * x * y
END IF
PRINT "x="; x; ", y="; y

Результат
? 5.68,3.9
x= 54.4144 , y= 4.79