De:b,h:real
Proc:area=b*h/2
Ds:areaInicioB,h,area:real
Escriba(“digite la altura”)
Lea(h)
Escriba (“digite la base”)
Lea(b)Si(b>h)entonces
Areat=(b*h)/2
Escriba (“area el trianguloes”,area t)SinoArea=b*h
Escriba(“area del ractangulo es”.area r”)F siFin#include
#includeInt main()
{
Clrscr();
Float b,h,area;
Printf(“digite la altura”);
Scanf(“%f”&h);
Printf(“digite la base”);
Scanf(“%f”&b);If(b>h){Arrea t=(b*h)/2;
Printf(“el area del triangulo es%f1.2”,area t);}else{;Area=b*h;
Printf(“el area del rectangulo es%f1.2”,area r);
}

Getch;}