begin   
comment print of reals in scientific notation R_FORMAT = "S";   
comment R_W = total output width , R_D = width after point;
	integer i;
	real n;
	
	n := 123.4567;
	R_FORMAT := "S";
	
	for i := 1 until 15 do
	begin
		R_W := i;
		write(n);
	end;
	
	write(i_w := 8,  n);
	
	for i := 1 until 10 do
	begin
		R_d := i;
		write(n);
	end;
end.