PASCAL

BUENO AQUI LES DEJO OTRO PROGRAMITA.


PROGRAM EJER13;
       USES CRT;
       VAR l1,l2,l3:REAL;
       VAR area,volumen:REAL;

BEGIN
       l1:=3;
       l2:=6;
       l3:=4;

       area:=2 * (l1 * l2)+(2 * (l1 * l3)) + (2* (l2 * l3));
       volumen:= l1 * l2 * l3;

       ClrScr;

       WRITE ('AREA DEL PRISMA:');     WRITELN(area);
                WRITE ('VOLUMEN DEL PRISMA:');   WRITE (volumen);
        READ

  END.