OksBar_2

DIM X AS SINGLE, Y AS SINGLE, T AS SINGLE
INPUT "Input X: ", X
DO
    INPUT "Input Y (Y <> X): ", Y
LOOP WHILE X = Y
IF X < Y THEN
    T = (X + Y) / 2
    Y = X * Y * 2
    X = T
ELSE
    T = (X + Y) / 2
    X = X * Y * 2
    Y = T
END IF
PRINT "X ="; X
PRINT "Y ="; Y