Помогите плиз найдите сумму переменных в qbasic

1.  DIM i, j, k AS INTEGER  INPUT i, j, k  IF i < j THEN    IF i < k THEN PRINT i ELSE PRINT k  ELSE    IF j < k THEN PRINT j ELSE PRINT k  END IF    2.  DIM i, j AS INTEGER  j = 0  FOR i = 12 TO 100    IF (i MOD 2) = 0 THEN j = j + i  NEXT  PRINT j  или  j = 0  FOR i = 12 TO 100 STEP 2    j = j + i  NEXT  PRINT j    3.  DIM i, j AS INTEGER  j = 0  FOR i = 5 TO 10    j = j + i ^ 3  NEXT 1. найти наименьшее из 3х чисел, введенных с Клавы  2. найти сумму четных чисел от 12 до 100  3. найти сумму кубов чисел от 5 (в кубе) до 10 (в кубе)  4. найти y=2x(в кубе) / 10 , если x меняется от 1 до 10, с шагом 0,5  PRINT j    4.  DIM x, y AS INTEGER  y = 0  FOR x = 1 TO 10 STEP .5    y = ((2 * x) ^ 3) / 10    PRINT y