begin
writeln ('1 - провести обхід, 2 - відобразити дерево, 3 - виконати прошивку, 4 - вихід ');
readln (answ);
case answ of
1:
begin
if st = true then
writeln ('Обхід неможливий - дерево прошито')
else
begin
writeln ('Виберіть обхід: 1 - зверху-вниз, 2 - зліва-направо, 3 - знизу-вгору');
readln (answ2);
case answ2 of
1:
begin
writeln ('Обхід зверху-вниз:');
PrintDown (1, root);
end;
2:
begin
writeln ('Обхід ліворуч-праворуч:');
PrintLex (1, root);
end;
3:
begin
writeln ('Обхід знизу-вгору:');
PrintUp (1, root);
end;
end;
end;
end;
2:
if st = true then
writeln ('Дерево прошито - його уявлення неможливо')
else
begin
writeln ('Представлення дерева:');
{визоваем процедуру подання дерева}
ViewTree (root);
end;
3:
begin
if st = true then
writeln ('Дерево вже прошито')
else
begin
writeln ('Прошивка:');
i: = 0;
j: = 0;
Threading (root);
st: = true;
end;
end;
4: exit;
end;
writeln;
end;.
