programa examen2
procesos
  proceso contarF (ES flores:numero)
  variables
    flor:numero
  comenzar
    flor:=0
    mientras (HayFlorEnLaEsquina)
      tomarFlor
      flor:=flor+1
    repetir flor
      depositarFlor
    flores:=flores + flor
  fin
  proceso lado (E long:numero; ES flortot:numero)
  comenzar
    repetir long
      contarF (flortot)
      mover
  fin
  proceso rectangulo (E altura:numero; E base:numero; ES florestot:numero)
  comenzar
    repetir 2
      lado (altura, florestot)
      derecha
      lado (base, florestot)
      derecha
  fin
variables
  florestotal:numero
  alto:numero
  ancho:numero
comenzar
  iniciar
  florestotal:=0
  alto:=1
  ancho:=15
  repetir 8
    rectangulo (alto, ancho, florestotal)
    ancho:=ancho -2
    Pos (1, PosCa+2)
  Informar (florestotal)
fin