programa juntarFlores
areas
  areaR1 : AreaP(2,2,5,7)
  areaR2 : AreaP(6,2,9,7)
  areaR3 : AreaP(10,2,13,7)
  areaR4 : AreaP(14,2,17,7)
  areaR5 : AreaP(18,2,21,7)
  areaR6 : AreaP(22,2,25,7)
  areaT1 : AreaP(12,10,15,15)
  areaT2 : AreaP(16,10,19,15)
  areaT3 : AreaP(20,10,23,15)
  areaT4 : AreaP(24,10,27,15)
  areaT5 : AreaP(28,10,31,15)
  areaT6 : AreaP(32,10,35,15)
  areaR7 : AreaP(33,1,35,2)
robots
  robot tipo1
  variables
    flor:numero
    posAv: numero
    posCa: numero
    id: numero
    alto:numero
  comenzar
    RecibirMensaje(posAv,robotJ)
    RecibirMensaje(posCa,robotJ)
    RecibirMensaje(alto, robotJ)
    RecibirMensaje(id, robotJ)
    Pos(posAv,posCa)
    flor:=0
    repetir 2
      derecha
      repetir 3
        mientras(HayFlorEnLaEsquina)
          tomarFlor
          flor:= flor +1
        mover
      derecha
      derecha
      derecha
      repetir alto
        mientras(HayFlorEnLaEsquina)
          tomarFlor
          flor:= flor +1
        mover
      derecha
      derecha
    EnviarMensaje(id,robotJ)
    EnviarMensaje(flor,robotJ)
  fin
  robot Jefe
  variables
    aux:numero
    max:numero
    avenida:numero
    calle:numero
    id : numero
    idmax:numero
    alto: numero
  comenzar
    aux:=0
    max:=0
    id:=0
    idmax:=0

    Random(alto, 1, 5)

    EnviarMensaje(12,robot1)
    EnviarMensaje(10,robot1)
    EnviarMensaje(alto, robot1)
    EnviarMensaje(1, robot1)

    Random(alto, 1, 5)
    EnviarMensaje(16,robot2)
    EnviarMensaje(10,robot2)
    EnviarMensaje(alto, robot2)
    EnviarMensaje(2,robot2)

    Random(alto, 1, 5)
    EnviarMensaje(20,robot3)
    EnviarMensaje(10,robot3)
    EnviarMensaje(alto, robot3)
    EnviarMensaje(3,robot3)

    Random(alto, 1, 5)
    EnviarMensaje(24,robot4)
    EnviarMensaje(10,robot4)
    EnviarMensaje(alto,robot4)
    EnviarMensaje(4, robot4)

    Random(alto, 1, 5)
    EnviarMensaje(28,robot5)
    EnviarMensaje(10,robot5)
    EnviarMensaje(alto, robot5)
    EnviarMensaje(5, robot5)

    Random(alto, 1, 5)
    EnviarMensaje(32,robot6)
    EnviarMensaje(10,robot6)
    EnviarMensaje(alto,robot6)
    EnviarMensaje(6,robot6)

    repetir 6
      RecibirMensaje(id, *)
      RecibirMensaje(aux,*)
      si(aux > max)
        idmax:= id
        max:=aux
    Informar(idmax,max)
  fin
variables
  robot1: tipo1
  robot2: tipo1
  robot3: tipo1
  robot4: tipo1
  robot5: tipo1
  robot6: tipo1
  robotJ: Jefe
comenzar
  AsignarArea(robot1,areaR1)
  AsignarArea(robot2, areaR2)
  AsignarArea(robot3, areaR3)
  AsignarArea(robot4,areaR4)
  AsignarArea(robot5, areaR5)
  AsignarArea(robot6, areaR6)
  AsignarArea(robotJ, areaR7)
  AsignarArea(robot1,areaT1)
  AsignarArea(robot2, areaT2)
  AsignarArea(robot3, areaT3)
  AsignarArea(robot4,areaT4)
  AsignarArea(robot5, areaT5)
  AsignarArea(robot6, areaT6)
  Iniciar(robot1, 2, 2)
  Iniciar(robot2, 6 ,2)
  Iniciar(robot3, 10,2)
  Iniciar(robot4, 14, 2)
  Iniciar(robot5, 18,2)
  Iniciar(robot6, 22,2)
  Iniciar(robotJ, 33,1)
fin