18 lines
275 B
Plaintext
18 lines
275 B
Plaintext
/* Greatest common divisor */
|
|
|
|
BEGIN
|
|
a := READ;
|
|
b := READ;
|
|
|
|
WHILE a != b DO
|
|
IF a < b THEN
|
|
b := b - a
|
|
ELSE
|
|
a := a - b
|
|
FI
|
|
OD;
|
|
|
|
WRITE(a)
|
|
END
|
|
|