area of rectangle using sub...end sub