begin
	comment procedure inVector of reading vector from a file;
	
	real array a(1::100);
	integer i, dim;
	
	procedure inVector(integer value channel; real array v(*); integer result ndim);
	begin
		integer i;
		readon( ndim);
		for i := 1 step 1 until ndim do readon( v(i))
	end;
	
	inVector(6, a, dim);
	
	for i:= 1 step 1 until dim do write(a(i));

end