Cуммировать вводимые положительные числа.При вводе нуля обеспечить вывод на экран полученной суммы и начать суммирование следующих чисел вновь. При вводе отрицательного числа закончить работу- QBasic(Бейсик)

DO
    s = 0
    DO
        INPUT a
        IF a > 0 THEN s = s + a
    LOOP WHILE a > 0
    PRINT SPC(4); s
LOOP UNTIL a < 0

Тестирование выполнено в программе QB64 ( Скачать )