Hello, the following should work. If it doesnt, let me know.
Module Main()
Declare Integer n
Display "Please enter a positive non zero positive number"
Input n
While n < = 0
Display " Invalid Input, Please enter a non zero positive number"
Input n
End While
END
Hope this helps.