Напишите рекурсивную функцию, которая вычисляет НОД двух натуральных чисел, используя модифицированный алгоритм Евклида. Пример: Введите два натуральных числа: 7006652 112307574 НОД(7006652,112307574)=1234. Помогите пожалуйста

Вопрос школьника по предмету Информатика

Напишите рекурсивную функцию, которая вычисляет НОД двух натуральных чисел, используя модифицированный алгоритм Евклида.
Пример:
Введите два натуральных числа:
7006652 112307574
НОД(7006652,112307574)=1234.
Помогите пожалуйста

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017

function Nod(a,b:integer):integer;

begin

  if b=0 then Result:=a

  else Result:=Nod(b,a mod b)

end;

begin

  var a,b:integer; Read(a,b);

  Writeln(Nod(a,b))

end.