Pseudocode CountPositive

Question

integer totalPos,number
Begin loop
Input numbers
If number>0 then totalPos<-totalPos +1
Loop while number<>0
Print totalPos

Convert the above Pseudocode into a pascal program.