Вычислить площадь треугольника (по любой из известных формул) - QBasic

Вычислить площадь треугольника(по любой из известных формул)

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

CLS
INPUT "vvedite a,b,c"; a, b, c
p = (a + b + c) / 2
s = SQR(p * (p - a) * (p - b) * (p - c))
PRINT "s="; s

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

CLS - очистка экрана
INPUT vvedite a,b,c; a, b, c - ввод значений для переменных a, b, c
p = (a + b + c) / 2 - вычисление полупериметра треугольника (p)
s = SQR(p (p - a) (p - b) * (p - c)) - вычисление площади треугольника по формуле Герона (s)
PRINT s=; s - вывод значения площади треугольника на экран