Выполните на компьютере программу Evklid (из параграфа). Протестируйте ее на значениях M = 32, N = 24



Выполните на компьютере программу Evklid (из параграфа). Протестируйте ее на значениях M = 32, N = 24; M = 696, N = 234.    
Program Evklid;
var M, N: integer;
begin
   writeln ('Введите M и N');
   readln (M, N);
   while (M<>N)
   do begin
      if M>N
      then M:=M-N
      else N:=N-M
   end;
   writeln ('НОД = ', M)
end.

M = 32, N = 24; НОД (32, 24) = 8
M = 696, N = 234; НОД (696, 234) = 6