Алгоритм Евклида. Составить программу для нахождения наибольшего общего делителя двух натуральных чисел M и N по алгоритму Евклида: НОД=M, если M=N; если M>N, то M=M-N, иначе N=N-M — Pascal(Паскаль)

program p1;

label 1;

var
  m, n: integer;
  prod: char;

begin
1:
  write('M= ');
  readln(m);
  write('N= ');
  readln(n);
  repeat
    if n > m then
      n := n mod m
    else
      m := m mod n;
  until (m = 0) or (n = 0);
  writeln('NOD= ', m + n);

  write('Vi xotite prodoljiti? (y/n) ');
  readln(prod);
  if prod = 'y' then
    goto 1;
  readln;

end.