PROGRAM triangulo;
USES CRT;
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);
{:5:2 sirve para dar el formato de salida al numero, 5 posiciones y 2 decimales}
END.