Нужна помощь

[BreeZe]

Очень нужна помощь!!!
Пожалуйста, кому не в лом, напишите мне две программки!!!
ПЛИЗ!!!!очень прошу))))очень надо)))

1.Написать вариант алгоритма Евклида, используя соотношения НОД(2a,2b)=2*НОД(а, b) и НОД(2a,b) = НОД(а, b) при нечетном b, не включающий деление с остатком, а использующий лишь деление на 2 и проверку четности.
2.Сформировать стек из произвольных элементов. Реализовать последовательный перенос его элементов в очередь, линейный и кольцевой списки с их удалением из стека. Реализовать такой же перенос и для остальных структур.

[Сильванович Михаил]

Вот рекурсивный алгоритм по методу Евклида, а про деление на 2
сделать можешь и сам.
По п. 2.: по кольцевым спискам тема уже где-то была.

function GCD(x,y: integer): LongInt;      
var r: LongInt;
begin
  if(x>y)and(x<>0)and(y<>0) then
  begin
   r:=x mod y;
   if (r<>0) then GCD:=GCD(y,r)
                else GCD:=y;	       
  end else if (y=0) then GCD:=x
        else if (x=0) then GCD:=y
        else if (y>x) then GCD:=-1;
end;