Calculo del área de un triángulo cualquiera por sus lados

Proceso CalculoAreaTrinaguloLados
Definir lado como real;
Definir lado2 como real;
Definir lado3 como real;
Definir semisuma como real;
Definir area como real;


Escribir "Este programa calcula el area usando la formula de Heron";

Escribir "Ingrese la longitud de uno de los lados del triangulo: ";
Leer lado;

Escribir "Ingrese la longitud de otro de los lados del triangulo: ";
Leer lado2;

Escribir "Ingrese la longitud del lado del triangulo que falta: ";
Leer lado3;

semisuma <- lado + lado2 + lado3;
semisuma <- semisuma / 2;

    area <- semisuma*(semisuma-lado)*(semisuma-lado2)*(semisuma-lado3);
area <- raiz (area);

Escribir "El area del triangulo es: ", area;

FinProceso