[sandysman]

Эгегей! Может кто-нибудь подскажет хотя бы, правильно я посчитал количество левых вершин правых и общих???

Код:

 
program Trees;

type
   PTernaryNode = ^TTernaryNode;
    TTernaryNode = record
    data: integer;
   cleft : PTernaryNode;
    clright : PTernaryNode;
 end;
Procedure vvodtree (n: integer; var t: PTernaryNode);
begin
if t=nil then
            begin
              new(t);
            with t^ do
             begin
              cleft:=nil;
              clright:=nil;
              data:=n;
             end;
            end
  else
  if n<=t^.data then
                      vvodtree (n, t^.cleft)

                   else
                       vvodtree (n, t^.clright);

end;

procedure vivodtree (t:PTernaryNode);
begin
if t<> nil then
              begin
                    vivodtree (t^.cleft);
                    write (t^.data:3);
                    vivodtree (t^.clright);
              end;

end;

Function balansirovlev (t:PTernaryNode):integer;
begin
if t=nil then
              result:=0
          else result:=1+balansirovlev(t^.cleft);
end;

Function balnsirprav (t:PTernaryNode):integer;
begin
if t=nil then
              result:=0
          else result:=1+ balnsirprav(t^.clright);
end;

Function balnsir (t:PTernaryNode):integer;
begin
if t=nil then
              result:=0
          else result:=1+ balnsir(t^.clright)+balnsir(t^.cleft);
end;

var A,B: PTernaryNode;
chis: integer;
visotalev, visotaprav, ob: integer;
begin
 a:=nil;
 read (chis);
 while chis <> 0 do
  begin
  vvodtree (chis,a);
  read (chis);
  end;
  vivodtree (a);
   visotalev:=balansirovlev(a);
   writeln ();
   writeln(visotalev);
   visotaprav:=balnsirprav(a);
   writeln (visotaprav);
   ob:=balnsir (a);
   writeln (ob);
 end.

.