8 lines
118 B
Text
8 lines
118 B
Text
Procedure GCD(x, y)
|
|
Protected r
|
|
r = x % y
|
|
If (r > 0)
|
|
y = GCD(y, r)
|
|
EndIf
|
|
ProcedureReturn y
|
|
EndProcedure
|