https://jp-word.net/pascal/%e3%83%91%e3%82%b9%e3%82%ab%e3%83%ab-%e5%90%8d%e8%a8%80-%e6%a0%bc%e8%a8%80