С помощью датчика случайных чисел получить 20 чисел из диапазона от -10 до 10 - QBasic

С помощью датчика случайных чисел получить 20 чисел из диапазона от -10 до 10 .Найти сумму положительных из них. За ранее спасибо .

Листинг программы

CLS
s = 0
RANDOMIZE (TIMER)
FOR i = 1 TO 20
   r = RND * 20 - 10
   PRINT r
   IF r > 0 THEN s = s + r
NEXT i
PRINT
PRINT s

Объяснение кода листинга программы

CLS — команда очистки экрана
s = 0 — инициализация переменной s значением 0
RANDOMIZE (TIMER) — установка генератора случайных чисел на основе текущего времени
FOR i = 1 TO 20 - цикл, выполняющийся 20 раз
r = RND * 20 - 10 - генерация случайного числа в диапазоне от -10 до 10
PRINT r — вывод сгенерированного числа на экран
IF r > 0 THEN s = s + r — если сгенерированное число больше 0, то прибавить его к переменной s
NEXT i — переход к следующей итерации цикла
PRINT — вывод переменной s на экран