Найти площадь равнобедренной трапеции с основаниями А и В (А > В) и углом при большем основании А - QBasic

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

1) Найти площадь равнобедренной трапеции с основаниями А и В (А > В) и углом  при большем основании А. Исходные данные ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение трапеции и результат вычислений.

Помогите решить очень срочно)

Решение задачи: «Найти площадь равнобедренной трапеции с основаниями А и В (А > В) и углом при большем основании А»

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

CLS
RANDOMIZE TIMER
CONST pi = 3.141593
 
B = 100 * RND + 50
A = B + 100 * RND
F = 30 + 45 * RND
H = (A - B) / 2 * TAN(pi / 180 * F)
S = (A + B) / 2 * H
 
SCREEN 11
WINDOW (-200, 150)-(200, -150)
 
LINE (-A / 2, -H / 2)-(A / 2, -H / 2)
LINE (-B / 2, H / 2)-(B / 2, H / 2)
LINE (-A / 2, -H / 2)-(-B / 2, H / 2)
LINE (A / 2, -H / 2)-(B / 2, H / 2)
 
PRINT "S ="; S
END

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

Начинается с команды CLS, которая очищает экран.
Команда RANDOMIZE TIMER используется для случайного генерирования чисел.
Следующая строка объявляет константу pi равную 3.141593.
Затем создаются две переменные B и A, значение которых случайным образом выбирается из диапазона от 50 до 150. При этом A всегда больше B.
Переменная F инициализируется значением 30, к которому добавляется случайное число от 0 до 150.
Переменная H вычисляется как половина разности A и B, умноженная на тангенс угла F.
Переменная S вычисляется как сумма A и B, умноженная на H.
Следующая строка устанавливает размеры окна экрана.
Затем рисуются четыре линии, образующие прямоугольник со сторонами A и B, разделенный на две равные трапеции.
Наконец, на экран выводится значение переменной S.
Программа завершается командой END.