чуть-чуть преобразовать код Qbasic, нужно сюда как-то вставить проверку того, что A <> B, и четырёхзначное ли число.
вот само задание: ввести с клавиатуры два четырёхзначных числа. если первое > второго, то вывести формулу куба разности, а наоборот - формулу куба суммы.
сам код:
CLS
INPUT "VVEDITE DVA CHISLA";A,B
IF A>B THEN PRINT "A^3-3*A^2*B^2+B^3"
ELSE "A^3+3*A*B^2+B^3"
END