proc divmod(a, b: int; res, remainder: var int) =
remainder = a mod b # 整数型のmod計算
var
x, y: int
divmod(8, 5, x, y) # xとyを変更する
echo x
echo y
cHJvYyBkaXZtb2QoYSwgYjogaW50OyByZXMsIHJlbWFpbmRlcjogdmFyIGludCkgPQogIHJlcyA9IGEgZGl2IGIgICAgICAgICMg5pW05pWw5Z6L44Gu6Zmk566XCiAgcmVtYWluZGVyID0gYSBtb2QgYiAgIyDmlbTmlbDlnovjga5tb2ToqIjnrpcKCnZhcgogIHgsIHk6IGludApkaXZtb2QoOCwgNSwgeCwgeSkgIyB444GoeeOCkuWkieabtOOBmeOCiwplY2hvIHgKZWNobyB5