Программа вычисления площади треугольника по формуле Герона — QBasic(Бейсик)

INPUT a,b,c
p=0.5*(a+b+c)
s=SQR(p*(p-a)*(p-b)*(p-c))
PRINT s