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

Program Pascalguru;

procedure nod(n, m: integer);
var
  r: integer;
begin
  if m = 0 then
  begin
    writeln('NOD: ', n);
    exit;
  end;
  r := n mod m;
  n := m;
  m := r;
  nod(n, m);
end;

var
  n, m: integer;

begin
  write('m: ');
  readln(m);
  write('n: ');
  readln(n);

  nod(n, m);

  readln;

end.