/*
 * simple while
 */

module while_statement;

var
	i : integer

begin
	i := 0;
	while i < 10 do
		i := i + 1;
	end
end