programa ejer1a
procesos
  proceso calle (ES pasosmax:numero; ES calle:numero)
  variables
    pasos:numero
  comenzar
    pasos:=0
    mientras ~(HayFlorEnLaEsquina)
      mover
      pasos:=pasos+1
    si pasos > pasosmax
      pasosmax:=pasos
      calle:=PosCa
  fin
variables
  maxpasos:numero
  callenum:numero
comenzar
  iniciar
  maxpasos:=0
  derecha
  repetir 5
    calle (maxpasos, callenum)
    Pos (1, PosCa+1)
  Informar (callenum)
fin