DECLARE FUNCTION Ave(A,B,C)CLSINPUT"Enter any three numbers";A,B,C                           PRINT"Average of three numbers";Ave(A,B,C)
END

FUNCTION Ave(A,B,C)
Av=(A+B+C)/3
Ave=Av
END FUNCTION