{* Площадь треугольника по формуле Герона *}

REM basic

'
'

Площадь треугольника
' вычисляется по формуле Герона

10 INPUT “Введите стороны “; a,b,c 
20 If a+b>c Then 50 
30 PRINT “Треугольник не существует” 
40 End 
50 If a+c>b Then 70 
60 GoTo 30 
70 If b+c>a Then 90 
80 GoTo 30 
90 p=(a+b+c)/2 
100 s=sqr(p*(p-a)*(p-b)*(p-c)) 
110 PRINT “S=”;s 
120 GoTo 40