Start
Declarations
Number NumberOfBooks
Number Amount = 40
Number BookCount[Amount] = 0
Number END = -1
GetReady()
While NumberOfBooks<>END
CollectTheData
EndWhile
FinishUp()
Stop
GetReady()
Display “Enter how many number of books written”
Input NumberOfBooks
Return
CollectTheData
If NumberOfBooks >=1 AND NumberOfBooks<= Amount then
BookCount[NumberOfBooks -1] = BookCount[NumberOfBooks -1] +1
Else
Display “The number of book you’ve entered in invalid, therefore the record not counted”
EndIf
Display “Enter how many number of books written”
Input NumberOfBooks
Return
FinishUp()
NumberOfBooks = 0
While NumberOfBooks < Amount
Output NumberOfBooks +1, BookCount [NumberOfBooks]
NumberOfBooks = NumberOfBooks + 1
EndWhile
Return