решить.Даны натуральные числа n,m; найти НОД(n,m). Использовать программу, включающую рекурсивную процедуру вычисления НОД, основанную на соотношении НОД(n,m)=НОД(m,r), где r – остаток от деления n на m.(паскаль)

var a,b:integer;procedure nod(x,y:integer);begin if x=y then writeln(x)        else if x>y then nod(x-y,y) else nod(x,y-x);end;begin writeln('Введите два числа '); readln(a,b); write('НОД: '); nod(a,b);end.Тестовое решение:Введите два числа 3318НОД: 3