briefly explain what the above program is doing

Briefly explain what the above program is doing (note where the read statement is in this

program Rolledint wat v integer v = 0 writeln("Program Starting") while true read (nowait, v) for i = 1 to 100 if v > 0 then break + end if write(".") next wend writeln("Program Ending") end Notes: The nowait keyword in the read statement makes sure the program is not suspended while waiting for an input. If there is no input, the value of the variable v will remain unchanged. The break * statement takes the program out of the outermost loop which in this case is the while loop. W program VectoredInt var v integer sub Input Int inte 1 read (nowait, v) end sub for v = 0 writeln("Program Starting") while true = 1 to 100 if v >0 then break + end if write(".") next wend writeln("Program Ending") end