area de un triangulo rectangulo

Proceso sin_titulo
Escribir "calcular el area de un triangulo rectangulo";Leer pausa;
Escribir "ingresar el valor de la base"; Leer base;
Escribir "ingresar el valor de la altura";leer altura;
si (altura>0) Entonces
area <- base*altura/2;
Escribir "el valor del area es",area;
Sino
Escribir "no sirve un valor de b nulo o negativo";
FinSi

FinProceso