Function Main
Declare Real radius
Declare Real area
Declare Real Circumference
Output "Enter the radius of Circle : "
Input radius
Assign area = 3.1416 * radius * radius
Assign Circumference = 2 * 3.1416 * radius
Output "Area of Circle : " &area
Output "Circumference of circle: " &Circumference
End