Помогите записать в qbasic.Ввести 10 чисел. Проверить, есть ли среди введенных ноль. Если есть, вывести на экран «Есть 0», если нет – «Нет 0».(10 чисел имеется в виду любых десять)

CONST n = 10 DIM a(1 TO n) AS INTEGER DIM i AS INTEGER, IsNull AS INTEGER PRINT "Вводите числа" FOR i = 1 TO n    INPUT a(i) NEXT i i = 1 IsNull = 0 DO WHILE i <= n    IF a(i) = 0 THEN IsNull = 1    i = i + 1 LOOP IF IsNull = 1 THEN    PRINT "Есть 0" ELSE    PRINT "Нет 0" END IF END