uses crt;
type
   ptr=^Node;
   Node=record
   data:integer;
   left,right:ptr;
   end;
var
   root:ptr; b,x,i,n:integer;    d:integer;

Procedure Create(var tree:ptr;a:integer);
var p:ptr;
begin
if tree=nil then begin
                 new(tree); tree^.data:=a;
                 tree^.left:=nil; tree^.right:=nil;
                 end
else if a<tree^.data then create(tree^.left,a)
else if a>tree^.data then create(tree^.right,a)
end;

procedure readtree(var tree:ptr);
begin
        if tree<>nil then
            begin
              readtree(tree^.left);
              write(tree^.data:5);
              readtree(tree^.right);
           end;
end;

procedure mymy(var tree:ptr; var s,k:integer);
begin
 
     if tree<>nil then
     begin
         mymy(tree^.left,s,k);
         write(tree^.data:5);
         s:=s+tree^.data;
         k:=k+1;
         mymy(tree^.right,s,k);
     end;
end;

Begin
 clrscr;
 writeln('Input numbers');
 read(b);
   New(root);
   root^.data:=b;
   root^.right:=nil;
   root^.left:=nil;
   read(b);
        while b<>0 do
                     begin
                     Create(root,b);
                     read(b);
                     end;
 writeln;
 writeln('Created tree');
 readtree(root);
 writeln;
 d:=0;
 x:=0;
 mymy(root,d,x);
 writeln (' SAR= '); write( d/x:0:3);
 readln;
 readln;
End.