CONST
↲
␣␣m␣
=
␣␣7
,
↲
␣␣n␣
=
␣85
;
↲
↲
VAR
↲
␣␣x
,
␣y
,
␣z
,
␣q
,
␣r
;
↲
↲
PROCEDURE
␣multiply
;
↲
BEGIN
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣WHILE
␣DO
␣BEGIN
↲
␣␣␣␣;
↲
␣␣␣␣;
↲
␣␣␣␣;
↲
␣␣END
↲
END
;
↲
↲
PROCEDURE
␣divide
;
↲
BEGIN
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣WHILE
␣DO
␣BEGIN
↲
␣␣␣␣;
↲
␣␣␣␣;
↲
␣␣␣␣IF
␣THEN
␣BEGIN
↲
␣␣␣␣␣␣;
↲
␣␣␣␣␣␣END
↲
␣␣END
↲
END
;
↲
↲
PROCEDURE
␣gcd
;
↲
BEGIN
↲
␣␣;
↲
␣␣;
↲
␣␣WHILE
␣DO
␣BEGIN
↲
␣␣␣␣;
↲
␣␣␣␣;
↲
␣␣END
;
↲
␣␣END
;
↲
↲
BEGIN
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
␣␣;
↲
END
.
↲