Вычислить площадь треугольника по 3 сторонам - QBasic

Помогите пожалуйста выполнить задание на QBasic Задание вот: [404]

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

CLS
INPUT "1 storona-"; a
INPUT "2 storona-"; b
INPUT "3 storona-"; c
p = (a + b + c) / 2
s = SQR(p * (p - a) * (p - b) * (p - c))
PRINT "S="; s

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

В начале программы выполняется команда CLS, которая очищает экран.
Затем пользователю предлагается ввести значения трех сторон треугольника.
Введенные значения сохраняются в переменных a, b и c.
Следующая строка кода вычисляет полупериметр треугольника (p), который равен сумме длин всех сторон, деленной на 2.
Далее вычисляется площадь треугольника (s) с помощью формулы Герона. Формула Герона выглядит следующим образом: s = sqrt(p (p - a) (p - b) * (p - c))
И, наконец, на экран выводится значение площади треугольника (s).