proc yes(question: string): bool =
echo question, " (はい/いいえ)"
while true:
case readLine(stdin)
of "はい", "そうです", "可", "〇": return true
of "いいえ", "ちがいます", "不可", "×": return false
else: echo "「はい」か「いいえ」で明確に答えてください"
if yes("全ての君の重要なファイルを消そうか?"):
echo "デイブ、申し訳ない。私には出来ない。"
else:
echo "君も私と同じくらい、なにが問題かわかっているようだね。"
cHJvYyB5ZXMocXVlc3Rpb246IHN0cmluZyk6IGJvb2wgPQogIGVjaG8gcXVlc3Rpb24sICIgKOOBr+OBhC/jgYTjgYTjgYgpIgogIHdoaWxlIHRydWU6CiAgICBjYXNlIHJlYWRMaW5lKHN0ZGluKQogICAgb2YgIuOBr+OBhCIsICLjgZ3jgYbjgafjgZkiLCAi5Y+vIiwgIuOAhyI6IHJldHVybiB0cnVlCiAgICBvZiAi44GE44GE44GIIiwgIuOBoeOBjOOBhOOBvuOBmSIsICLkuI3lj68iLCAiw5ciOiByZXR1cm4gZmFsc2UKICAgIGVsc2U6IGVjaG8gIuOAjOOBr+OBhOOAjeOBi+OAjOOBhOOBhOOBiOOAjeOBp+aYjueiuuOBq+etlOOBiOOBpuOBj+OBoOOBleOBhCIKCmlmIHllcygi5YWo44Gm44Gu5ZCb44Gu6YeN6KaB44Gq44OV44Kh44Kk44Or44KS5raI44Gd44GG44GL77yfIik6CiAgZWNobyAi44OH44Kk44OW44CB55Sz44GX6Kiz44Gq44GE44CC56eB44Gr44Gv5Ye65p2l44Gq44GE44CCIgplbHNlOgogIGVjaG8gIuWQm+OCguengeOBqOWQjOOBmOOBj+OCieOBhOOAgeOBquOBq+OBjOWVj+mhjOOBi+OCj+OBi+OBo+OBpuOBhOOCi+OCiOOBhuOBoOOBreOAgiI=