Даны действительные числа x и y , не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее- их удвоенным произведением- QBasic(Бейсик)

cls
1 input "y=";y
input "x="; x
if x=y then goto 1
if x>y then x = 2*x*y  else x=(x+y) / 2
if x<y then y=2*x*y else y=(x+y)/2
? "y="; y
? "x="; x

Тестирование выполнено в программе QB64 ( Скачать )