Помогите написать программу на QBasic.

[Seriket1993]

Пожалуйста, кто сможет, помогите. ( Модераторы, не удаляйте пожалуйста тему )
Я в этом дуб-дубом.

[Seriket1993]

a) Правильно?

REM lab4a
CLS
INPUT "n="; n
FOR i=1 TO n
     10 INPUT "x=", x
     IF x>=0 AND x<=100.0 THEN
         S=SQR((x^2)^(1/3))
     ELSE
     GOTO 10
     END IF
NEXT i
PRINT "S="; S
END