Вечно у меня проблемы с рекурсией...
Короче, в дереве надо посчитать количество узлов, имеющих 2 направления связи.
Т.е., все узлы за вычетом листьев и корневого узла.

У меня выходит такая процедура:



Но паскаль ругается, что stack overflow error.
Само дерево я ввожу, и с ним всё очень даже нормально.
В чём ошибка?

function calcsum(tree: adrzv): integer;
begin
  calcsum := 0;
  if (tree = nil) or
     ((tree^.lev=nil) and (tree^.prav=nil)) then exit;

  calcsum := calcsum(tree^.prav) + calcsum(tree^.lev) + 1;
end;

попробуй... И посмотри, что у тебя было не так.

Работает!
Спасибо!