Loop example

Accumulating a product or sum

	tot := 0;
	PUT("Enter j (-1 to exit): "); GET(j); SKIP_LINE;
	while (j /= -1) loop
		tot := tot + j;
		PUT("Enter j (-1 to exit): "); GET(j); SKIP_LINE;
	end loop;
	PUT("Total is "); PUT(tot); NEW_LINE;

Important components are:

• initialise variable with sum or product outside loop
• update variable appropriately inside loop