Помогите пожалуйста по алгоритмам. Написать программу.

Что есть. Без рекурсии на паскале и асме:
function NOD(a, b: integer): integer; //Наибольший общий делитель по Алгоритму Евклида
var
i, n, k: integer;
begin
if a < b then begin
i := a;
a := b;
b := i;
end;
if b = 0 then
Exit;
n := 0;
repeat
n := k;
k := a mod b;
a := b;
b := k;
until b = 0;
Result := Abs(n);
end;

function NOD(const a, b: integer): integer; assembler; //Наибольший общий делитель по Алгоритму Евклида
asm
pushad
mov eax, a
mov ebx, b
cmp eax, ebx
jnl @step
xchg eax, ebx
@step:
push ebx
test ebx, ebx
jz @error
mov ecx, ebx
neg ecx
cmp ecx, ebx
jl @dont_neg_b
mov ebx, ecx
@dont_neg_b:
xor ecx, ecx
@repeat:
mov Result, ecx
xor edx, edx
test ebx, ebx
jz @error
idiv ebx
mov eax, ebx
mov ebx, edx
mov ecx, ebx
test ebx, ebx
jnz @repeat
pop ebx
mov ecx, Result
test ecx, ecx
jnz @exit
mov Result, ebx
jmp @exit
@error:
pop ebx
xor eax, eax
mov Result, eax
jmp @full_exit
@exit:
mov eax, Result
mov ebx, eax
neg ebx
cmp ebx, eax
jl @full_exit
mov Result, ebx
@full_exit:
popad
end;

int divide(int a, int b, int divider)
{
if ((a % divider == 0) && (b % divider == 0)) {
return divider;
}
return divide(a, b, --divider);
}

int main()
{
int a = 10;
int b = 15;
int divider = (a > b) ? a : b;
divider = divide(a, b, divider);

printf("Divider: %d\n", divider);
}

int gcd(int a, int b) {
return b? gcd(b, a % b) : a;
}