Даны 5 чисел в неубывающем порядке - QBasic

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

Даны пять чисел в неубывающем порядке.Если все они равны друг другу то выведите число 1, если одинаковы ровно четыре числа то выведите 2,если равны друг другу три числа и равны друг другу два других числа то выведите 3, иначе если одинаковы три то выведите 4, иначе если одинаковы два и два числа то выведите 5, иначе если одинаковы только два числа то выведите 6,во всех остальных случаях вывести 7.

Решение задачи: «Даны 5 чисел в неубывающем порядке»

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

                            IF A = E THEN
   PRINT "1"
ELSEIF A = D OR B = E THEN
   PRINT "2"
                        