var b,h,r:numerico

inicio

cls()

     imprimir("\n hallar el area del triangulo b*h/2")

     imprimir("\n digite e valor de b")

     leer(b)

     imprimir("\n digite  el valor de h ")

     leer(h)

     r=b*h/2

    imprimir ("\n el area del triangulo b*h/2 es" ,r)

fin