begin
comment output of logical variables, use s_w; 

	logical a, b;
	integer i;
	
	a := true;
	b := false;
	
	for i := 0 until 10 do
	begin
		s_w := i;
		write(a, b);
	end;
	
	write (s_w := 0, i_w := 15, a, b);
	
end.