proc toString(x: int): string =
if x >= 4000: return "大きすぎます。4000未満の数字を入力してください"
type
RomanNums = array[0..9, string]
var
tenTo2
= (x
- tenTo3
*1000) div 100 tenTo1
= (x
- tenTo3
*1000 - tenTo2
*100) div 10 tenTo0 = (x - tenTo3*1000 - tenTo2*100 - tenTo1*10)
tenTo3Array : RomanNums = ["","M","MM","MMM","","","","","",""]
tenTo2Array : RomanNums = ["","C","CC","CCC","CD","D","DC","DCC","DCCC","CM"]
tenTo1Array : RomanNums = ["","X","XX","XXX","XL","L","LX","LXX","LXXX","XC"]
tenTo0Array : RomanNums = ["","I","II","III","IV","V","VI","VII","VIII","IX"]
result = tenTo3Array[tenTo3] & tenTo2Array[tenTo2] & tenTo1Array[tenTo1] & tenTo0Array[tenTo0]
proc toString(x: bool): string =
if x: result = "true"
else: result = "false"
echo toString(13) # toString(x: int)プロシージャを呼び出す
echo toString(true) # toString(x: int)プロシージャを呼び出す
cHJvYyB0b1N0cmluZyh4OiBpbnQpOiBzdHJpbmcgPQogICAgaWYgeCA+PSA0MDAwOiByZXR1cm4gIuWkp+OBjeOBmeOBjuOBvuOBmeOAgjQwMDDmnKrmuoDjga7mlbDlrZfjgpLlhaXlipvjgZfjgabjgY/jgaDjgZXjgYQiCiAgICB0eXBlCiAgICAgICAgUm9tYW5OdW1zID0gYXJyYXlbMC4uOSwgc3RyaW5nXQogICAgdmFyIAogICAgICAgIHRlblRvMyA9IHggIGRpdiAxMDAwCiAgICAgICAgdGVuVG8yID0gKHggLSB0ZW5UbzMqMTAwMCkgZGl2IDEwMAogICAgICAgIHRlblRvMSA9ICh4IC0gdGVuVG8zKjEwMDAgLSB0ZW5UbzIqMTAwKSBkaXYgMTAKICAgICAgICB0ZW5UbzAgPSAoeCAtIHRlblRvMyoxMDAwIC0gdGVuVG8yKjEwMCAtIHRlblRvMSoxMCkKICAgICAgICB0ZW5UbzNBcnJheSA6IFJvbWFuTnVtcyA9IFsiIiwiTSIsIk1NIiwiTU1NIiwiIiwiIiwiIiwiIiwiIiwiIl0KICAgICAgICB0ZW5UbzJBcnJheSA6IFJvbWFuTnVtcyA9IFsiIiwiQyIsIkNDIiwiQ0NDIiwiQ0QiLCJEIiwiREMiLCJEQ0MiLCJEQ0NDIiwiQ00iXQogICAgICAgIHRlblRvMUFycmF5IDogUm9tYW5OdW1zID0gWyIiLCJYIiwiWFgiLCJYWFgiLCJYTCIsIkwiLCJMWCIsIkxYWCIsIkxYWFgiLCJYQyJdCiAgICAgICAgdGVuVG8wQXJyYXkgOiBSb21hbk51bXMgPSBbIiIsIkkiLCJJSSIsIklJSSIsIklWIiwiViIsIlZJIiwiVklJIiwiVklJSSIsIklYIl0KICAgIHJlc3VsdCA9ICB0ZW5UbzNBcnJheVt0ZW5UbzNdICYgdGVuVG8yQXJyYXlbdGVuVG8yXSAmIHRlblRvMUFycmF5W3RlblRvMV0gJiB0ZW5UbzBBcnJheVt0ZW5UbzBdCgpwcm9jIHRvU3RyaW5nKHg6IGJvb2wpOiBzdHJpbmcgPQogICAgaWYgeDogcmVzdWx0ID0gInRydWUiCiAgICBlbHNlOiByZXN1bHQgPSAiZmFsc2UiCgplY2hvIHRvU3RyaW5nKDEzKSAgICMgdG9TdHJpbmcoeDogaW50KeODl+ODreOCt+ODvOOCuOODo+OCkuWRvOOBs+WHuuOBmQplY2hvIHRvU3RyaW5nKHRydWUpICMgdG9TdHJpbmcoeDogaW50KeODl+ODreOCt+ODvOOCuOODo+OCkuWRvOOBs+WHuuOBmQo=