Вычислить сумму первых n положительных чисел - QBasic

Формулировка задачи:

В BASIC написать программу, которая вычисляет сумму первых n положительных чисел. Количество суммируемых чисел должно вводиться с клавиатуры во время работы программы

Решение задачи: «Вычислить сумму первых n положительных чисел»

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

INPUT n
DO
INPUT a
IF a>0 THEN s=s+a:k=k+1
LOOP UNTIL k=n
PRINT s

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

Вводится значение переменной n (количество положительных чисел для суммы)
Вводится значение переменной a (считается сумма положительных чисел)
Инициализируются переменные s (сумма) и k (количество) со значением 0
Начинается цикл, который выполняется до тех пор, пока значение переменной k не станет равным n
В каждой итерации цикла значение переменной a запрашивается у пользователя и проверяется на положительность
Если значение переменной a больше нуля, то оно прибавляется к сумме (s) и увеличивается на единицу значение переменной k
После окончания цикла выводится значение переменной s (сумма положительных чисел)