как правильно решить задачу на тему:Рекурсия?

[натали73]

. Описать рекурсивную функцию NOD(A,B) целого типа, находящую наибольший общий делитель двух натуральных чисел A и B, используя алгоритм Евклида: NOD(A,B) = NOD(B mod A,A), если A <> 0; NOD(0,B) = B. С помощью этой функции найти наибольшие общие делители пар A и B, A и C, A и D, если даны числа A, B, C, D.

[натали73]

Это что слишком легкий вопрос?

[BDA]

Конечно это нетрудный вопрос.
Какой язык программирования?

[Pein95]

function nod(var a, b:integer): integer; 
  begin
   if (a = 0) or (b = 0) then
     if a = 0 then
       nod:= b
     else 
       nod:= a
   else 
     if a >= b then 
       nod:= nod( a mod b, b)
     else 
       nod:= nod( a, b mod a)
  end;

[натали73]

Мне нужно решение в Delphi

[kventin_zhuk]

Сообщение от натали73

Мне нужно решение в Delphi

В чем проблема? выше вам написали на паскале. Встаяляете написанную функцию, кладете кнопочки и разные штучки на формочку(если в визуальном режиме нужно), а если нет - объявляете нужные переменные, и всё работает,не?