反復のインデントが表示されていないので、空白文字を入れて再投稿します。


S=「あい_うえ_お_か_きく.txt」
Sから拡張子抽出
Pはそれ

Q=Sで「_」の出現回数
Sを文字列分解
Sはそれ

F=「」
K=「」
n=0
Sを反復
　　F＝「｛それ｝」
　　もし、F＝「_」ならば、n=n+1	
　　もし、n=Qならば、抜ける
　　K=「｛K｝｛F｝」
	
K&Pを言う
終わる