Нахождение НОД

[Мария17]

Нахождение НОД в Паскале (наибольшего общего делителя двух натуральных чисел)
Словесная форма:
1) Если числа не равны, то большее из них заменить на разность большего и меньшего из чисел.
2) Если два числа равны, то за НОД принять любое из них, иначе перейти к выполнению пункта 1.
Протестируйте программу на значениях А=32, В=24; А=696, В=234.

[Hollander]

Это тема для вопросов по .NET.
Ну а вообще на паскале:

function NOD(x,y:longint):longint;
begin
if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
end;

На C#:

 static int NOD(int x, int y) {
if(x != 0)
return NOD((y % x), x);
else return y;
}