Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим - QBasic

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

Даны три числа А, В, С. Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим.

Решение задачи: «Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим»

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

CLS
RANDOMIZE TIMER
 
DIM a AS INTEGER
DIM b AS INTEGER
DIM c AS INTEGER
 
a = 50 * RND
b = 50 * RND
c = 50 * RND
 
IF a > b THEN SWAP a, b
IF a > c THEN SWAP a, c
IF b > c THEN SWAP b, c
 
PRINT a; b; c
PRINT "SUMMA ="; a + b
PRINT "2*A*C ="; 2 * a * c
END

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

CLS — очистка экрана
RANDOMIZE TIMER — инициализация генератора случайных чисел
DIM a AS INTEGER — объявление переменной a типа integer
DIM b AS INTEGER — объявление переменной b типа integer
DIM c AS INTEGER — объявление переменной c типа integer
a = 50 * RND — присвоение переменной a случайное число от 0 до 50
b = 50 * RND — присвоение переменной b случайное число от 0 до 50
c = 50 * RND — присвоение переменной c случайное число от 0 до 50
IF a > b THEN SWAP a, b — если a больше b, то поменять их местами
IF a > c THEN SWAP a, c — если a больше c, то поменять их местами
IF b > c THEN SWAP b, c — если b больше c, то поменять их местами
PRINT a; b; c — вывод на экран значений переменных a, b, c
PRINTSUMMA =; a + b — вывод на экран суммы a и b
PRINT2AC =; 2 * a * c — вывод на экран произведения 2 и a, умноженного на c
END — конец программы