Алгоритм Евклида и Деревья Опции

[TEMA-XOMA]

1)Алгоритм Евклида нахождения НОД(m,n) основан на следующих свойствах этой величины: пусть m и n - два натуральных числа и пусть m>=n. Тогда для чисел m,n и r, где r - остаток от деления m на n, выполняется равенство НОД(m,n)=НОД(n,r). Используя алгоритм Евклида, найдите наибольший общий делитель m и n.
2)Разработать программу работы с бинарным деревом. Программа должна содержать следующие процедуры, вызываемые из меню:
-Построение пустого дерева;
-Добавление нового элемента;
-Удаление указанного поддерева;
-Просмотр деревьев в следующем порядке: левая ветвь, узел, правая ветвь.

Буду очень благодарен, если вы поможете с этими двумя задачами.

[Altair]

1.
http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=51230
там есть...
вот он:

Код

a:=abs(mx[num]); b:=abs(mx[m-num+1]);
if a<b then begin
     c:=a;
     a:=b;
     b:=c;
  end;
   c:=1;
   while c<>0 do begin
      if b<>0 then c:=a mod b;
     if c=0 then    _NOD:=b;
      a:=b;
      b:=c;
   end;

только a и b сам задавай какие надо