Проверить равенство (Число n пользователь должен ввести с клавиатуры):
1^3+2^3+3^3…n^3= (n^2*((n+1)^2))/4— QBasic(Бейсик)

INPUT "vvedite N", n
FOR i = 1 TO n
    s = s + i ^ 3
NEXT
IF s = (n ^ 2 * ((n + 1) ^ 2)) / 4 THEN PRINT "verno" ELSE PRINT "neverno"