Через бейсик не Паскаль

DIM n AS INTEGER, a AS INTEGERCLSINPUT "n=", ns = 0PRINT "Вводите данные"FOR i = 1 TO n   INPUT "", a   IF a > 0 THEN s = s + aNEXT iPRINT "S="; s