Untitled

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