Area de un rectangulo

PROBLEMA
Escribir un algoritmo que calcule el area de un rectangulo de a cuerdo a su base  y su altura y se repita hasta que ambos datos ean 0

ALGORITMO
Entradas: Numerico base
                Numerico altura
Salidas:   Numerico area

INICIO
     Hacer
          Leer base
          Leer altura
          Multiplicar  base por altura y guardar en area
     Mientras base sea mayor a 0 y altura sea mayor a 0
FIN

PSEUDOCODIGO
Class  Area_rectangulo
         // Declaraciones
         Real: base
         Real: altura
         Real: area
         // Procedimiento
         Main
              Do
                  Print "Introduce la base"
                  Scan base
                  Print "Introduce la altura"
                  Scan altura
                  area = baso * altura
             While (base >0 AND altura > 0)
        End_main