pascalssubsluts(601の該当)