 
алг 
нач 
цел p, q, r 
p := 24 
q := 18 
Евклид(p, q, r) 
вывод p, "; ", q, "; ", r 
кон 
 
алг Евклид (арг цел a,b, рез цел d)                     | (А64) 
дано a>0 и b>0 
надо | d = НОД(a,b) 
нач цел m,n | дополнительные величины нужны, 
| чтобы не менять значения аргументов 
m:=a; n:=b 
нц пока m<>n 
|утв | инвариант цикла: НОД(m,n) = НОД(a,b) 
если m>n 
то m:=m-n 
иначе n:=n-m 
все 
кц 
утв m=n | и НОД(m,n) = НОД(a,b) 
d := m 
кон 
 
 
