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

var a,b:integer;

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

begin

if (a<>0) and (b<>0) then begin

if (a>b) then

a:=a mod b else

b:=b mod a;

f(a,b);

end else

writeln(abs(a-b));

end;

BEGIN

writeln('Введите 2 натуральных числа');

readln(a,b);

write('НОД(',a,',',b,') = ');

f(a,b);

end.