10 lines
123 B
Text
10 lines
123 B
Text
|
Procedure GCD(x, y)
|
||
|
|
Protected r
|
||
|
|
While y <> 0
|
||
|
|
r = x % y
|
||
|
|
x = y
|
||
|
|
y = r
|
||
|
|
Wend
|
||
|
|
ProcedureReturn y
|
||
|
|
EndProcedure
|