pRogramacion estructurada

base               altura



    mOstrar




FINALIZAR



dim a, b , c , as integer
privatre sub comand-CLICK)
b:vol( text1)
h:vol(text2)
a:(b*h/2
text3:a

end sub

primate sub comadt_click
end
end sub