Алгоритм Евклида

Беремо числа m = 24 и n = 9.
2. m > n {m=24,n=9}
3. m := m mod n 
4. m > n {m=6,n=3}
7. m := m mod n 
8. т.к m = 0 віходим из цикла . НОД рівен n = 3

алгоритм Евклида в паскалі . 

var m, n: integer; begin Writeln('Введите два числа'); Readln(m, n); {старт цикла } repeat if m > n then m := m Mod n else n := n Mod m; until (m = 0) Or (n = 0); {если или m или n в процессе хода цикла стал равен 0 ,то цикл заканчивается } writeln('НОД = ', m + n); {так как мы знаем ,что одно из чисел равно нулю ,а другое НОД , то мы выводим сумму этих чисел} end.