declare sub perimeter(l,b) cls input“enter the length”;l input“enter the length”b call perimeter(l,b) end sub perimeter(l,b) p=2*(l+b) print“perimeter of rectangle”;p end sub
