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