Определить разность максимального и минимального чисел заданной последовательности - QBasic

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

Помогите написать программу, которая в последовательности целых чисел определяет разность максимального и минимального чисел. Программа получает на вход целые числа, кол-во введённых чисел неизвестно, последовательность заканчивается числом 0 (0 -признак окончания ввода, в последовательность не входит) Например вводим 8 5 -2 0, и выводится 10.

Решение задачи: «Определить разность максимального и минимального чисел заданной последовательности»

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

input a
if a=0 then print 0:end 
max=a
min=a
do while a<>0
input a
if a<>0 and a>max then max=a
if a<>0 and a<min then min=a
loop
print max-min

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

В этом коде:

Задаётся вопрос для ввода числа input a.
Если введенное число равно нулю, то выводится 0 и завершается выполнение программы.
Инициализируются переменные max и min значением введенного числа.
Запускается цикл do while, который будет выполняться до тех пор, пока введенное число не будет равно нулю.
В каждой итерации цикла запрашивается новое число input a.
Если введенное число не равно нулю, то проверяется, является ли оно больше максимального числа max. Если это так, то значение max обновляется.
Если введенное число не равно нулю, то проверяется, является ли оно меньше минимального числа min. Если это так, то значение min обновляется.
По завершении цикла выводится разница между максимальным и минимальным числами max-min.