REM to input radius and print the circumference of a circle DECLARE FUNCTION cir (r) CONST pi = 3.14 CLS INPUT "Enter radius"; r PRINT "Circumference of circle="; cir(r) END FUNCTION cir (r) cir = 2 * pi * r END FUNCTION