pascalの宿題解いてくれませんか?