CLEAR
TOTAL=0
S=0
DO AREA WITH 3,6.5,8.5,S
TOTAL=TOTAL+S
DO AREA WITH 8.5,5,8,S
TOTAL=TOTAL+S
DO AREA WITH 8,6,4,S
TOTAL=TOTAL+S
?"多边形的面积为：",ROUND(TOTAL,2)
RETURN

PROCEDURE AREA
  PARAMETER A,B,C,T
  L=(A+B+C)/2
  T=SQRT(L*(L-A)*(L-B)*(L-C))
ENDPROC

