10 lines
128 B
Plaintext
10 lines
128 B
Plaintext
BEGIN
|
|
i := 8;
|
|
j := 2;
|
|
|
|
WHILE i != j DO
|
|
IF i < j THEN j := j - i ELSE i := i - j FI
|
|
OD;
|
|
WRITE(i)
|
|
END
|