program drzewa;
type drzewo	= ^wezel;
   wezel	= record
				 zawartosc	: real;
				 lewy,prawy	: drzewo
			  end;			
var	d : drzewo;
   i  : integer;
procedure drukuj (drz: drzewo);
var licz : integer;
   procedure d(drz	: drzewo; var licz : integer);
   begin
	  if drz <> nil then
	  begin
		 d(drz^.lewy, licz);
		 if licz mod 7 =0 then
			writeln(drz^.zawartosc:11:8)
		 else
			write(drz^.zawartosc:11:8);
		 licz := licz +1;
		 d(drz^.prawy, licz)
	  end
   end; { drukuj }
begin
   licz := 1;
   d(drz,licz);
   writeln
end; { drukuj }


procedure wstaw (co	:real; var gdzie :  drzewo) ;
begin
   if gdzie = nil then
   begin
	  new(gdzie);
	  gdzie^.zawartosc := co;
	  gdzie^.lewy := nil;
	  gdzie^.prawy := nil
   end
   else
	  if gdzie^.zawartosc > co then
		 wstaw(co,gdzie^.lewy)
	  else
		 wstaw(co,gdzie^.prawy)
end; { wstaw }

begin
   d := nil;
   for i:= 1 to 100 do 
	  wstaw(random,d);
   drukuj(d)
end.