Pascal Calculo del Area de un Trianulo

PROGRAM AREATRIANGULO;

        USES WINCRT;

        VAR base,altura:REAL;

        VAR area:REAL;

BEGIN

        {Este programa sirve para calcular el area de un triangulo}

        ClrScr;

        WRITELN ('PARA CALCULAR EL AREA DE UN TRIANGULO:');

        WRITELN (' ');

        WRITE ('ESCRIBE LA BASE: ');     READLN (base);

        WRITE ('ESCRIBE LA ALTURA: ');   READLN (altura);

        WRITELN (' ');

        area:=(base * altura) / 2;

        WRITE ('EL AREA DEL TRIANGULO ES: ');  WRITE (area:5:2);

END.