Area de figuras

PROBLEMA
Algoritmo que calcule el area de triangulos y rectangulos conociendo su base y su altura.

 ALGORITMO

Entradas:
numérico  base
numérico altura
cadena figura

Salidas:
numérico area

INICIO
Leer base
Lees altura
Leer figura
Si figura es "Triangulo" entonces
    Multiplicar base por altura y guardar en triangulo
    Dividir triangulo entre 2 y guardar en area
Si figura es "Rectangulo" entonces
    Multiplicar base por altura y guaradr en area
Imprimir area
FIN

PSEUDOCÓDIGO
Class  Area_de_figuras
          // Declaraciones (entradas)
          Real: base
          Real: altura
          Cadena: figura
          // Declaraciones (salidas)
          Real: area
          Main
                  Print "Introduce la base"
                  Scan base
                  Print "Introduce la altura"
                  Scan altura
                  Print "Introduce la figura que deseas"
                  Print figura
                  if (figura == "Triangulo") then
                     triangulo = base * altura
                     area = triangulo / 2
                  end_if
                  if (figura == "Rectangulo") then
                     area = base * altura
                  end_if
                  Print area
          End_ main