begin   
comment complex numbers printing;
	integer i;
	complex n;
	
	n := 123.4567 + 78.12I;
	
	for i := 1 until 15 do
	begin
		r_w := i;
		write(n);
	end;
	
	write(s_w := 15,  n, n);
	write(s_w := 1,  n, n);
	
end.