WAP to find area of triangle

CLS
INPUT “Enter any three side value”;ABC
S=(A+B+C)/2
AR=S*(S-A)*(S-B)*(S-C)^(1/2)
PRINT “Area of triangle =“;AR
END