begin   
comment controlling the width of output of integer (I_W);

	integer i, n;
	
	n := 123;
	for i := 1 until 15 do
	begin
		I_W := i;
		write(n);
	end;
	
	write(i_w := 5,  n);
end.