Записать в 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