Program P1;
Type Tree=^Nod;
Nod=record
Info:string;
left,right:tree;
end;
var T:tree;
Function Tr:Tree;
var R:tree; s:string;
begin
readln(S);
if S='' then Tr:=nil esle begin
new®;
R^.info:=S;
write('vvedite lev. potomka');
writeln (S',=');
R^.left:=Tr;
Writeln ('vvedite prav. potomka ',s',:');
R^.right :=Tr;
Tr:=R;end;end;
Procedure TypingTree (T:tree;level:integer);
var i:integer;
begin if T<>nil then begin
TypingTree (T^.left,write +1);
for i:=1 to level do write(' ');
writeln (T^. info);
TypingTree (T^.right,level+1);end;end;
begin
writeln('vvedite koren':');
T:=Tr;
TypingTree(T,0);
readln;end
программа, типа дерева семьи...рабочая, вставляю имена, задача заключается в том, что нужно дописать, чтобы отображалось Имя и Год