cuidarelmediodelagua

PROGRAMA DE PSEUDOCODIGO INICIO  ESCRIBA("digita"0" para hallar el area de un tiangulo o cualquier numero para hallar el area de un  rectangulo")   LEA (p)   SI P=0 HAGA    LEA (B;H)   A;=(B*H)/2   ESCRIBA (A) FIN DEL SI   SINO    LEA(b,h)    A:b*h    ESCRIBA(A)  FIN DEL SINO FIN PROGRAMA EN TURBO PASCAL PROGRAM AREA USES CRT; VAR p,b, h, A:REAL; BEGIN      CLRSCR      WRITELN('programa que calcula el área del rectángulo  o de un triangulo');      WRITELN('digite"0"para hallar el área  de un triangulo "1" para hallar el área de un             rectángulo');      READLN(P)      IF P=0 THEN   BEGIN        WRITELN('digite la base y la altura del triangulo');      WRITENLN('digite la base del triangulo');      READLN(b);      WRITELN('digite la altura del triangulo');      READLN(h);      A=(b*h))/2;      WRITE(A); END     ELSE  BEGIN