Dim Float r,W,H Input "Segment length ",W Input "Segment height ",H r=H/2+((W^2)/(8*H)) Print "Radius of circle ";r