Pascal Area y Volumen Prisma

PROGRAM PRISMA;

        USES WINCRT;

        VAR l1,l2,l3:REAL;

        VAR area,volumen:REAL;

BEGIN

        {Calcula el area y volumen de un prisma}

        ClrScr;

        WRITELN ('PARA CALCULAR EL AREA Y EL VOLUMEN DEL PRISMA,

    ESCRIBA: ');

        WRITELN (' ');

        WRITE ('Lado1: ');  READLN (l1);

        WRITE ('Lado2: ');  READLN (l2);

        WRITE ('Lado3: ');  READLN (l3);

        WRITELN (' ');

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

        volumen:= l1 * l2 * l3;

        WRITE ('AREA DEL PRISMA: ');       WRITELN (area:5:2);

        WRITE ('VOLUMEN DEL PRISMA: ');    WRITE (volumen:5:2);

END.