Begin
  Var AnimalName StringArray
  Var AnimalProperty StringArray
  Var AnimalCount Integer
  Var Answer String
  Var I Integer
  Assign AnimalName[0] 'an elephant'
  Assign AnimalProperty[0] 'It is big and slow'
  Assign AnimalName[1] 'a cat'
  Assign AnimalProperty[1] 'It meows and purrs'
  Print 'An animal guessing game.'
  Assign AnimalCount 2
  Repeat
  Begin
    PrintLn 'Think an animal.'
    Assign I 0
    Repeat
    Begin
      Print AnimalProperty[I]
      Print '? (y/n)'
      InputLn Answer
      IfEqual Answer 'y'
      Begin
        Print 'Thats clear. It is '
        PrintLn AnimalName[I]
        Break
      End
      Increment I 1
      IfEqual I AnimalCount
      Break
    End
    IfEqual I AnimalCount
    Begin
     PrintLn 'I am lost. What is the animal?'
      InputLn AnimalName[I]
      PrintLn 'Describe the animal for me. What it is like?'
      InputLn AnimalProperty[I]
      PrintLn 'Thank you. I will remember that animal.'
      Increment AnimalCount 1
    End
    Print 'Do you want to play again? (y/n)'
    InputLn Answer
    IfNotEqual Answer 'y'
    Break
    PrintLn ''
  End
  PrintLn 'Bye'
End