>>103

Palam=0 ;積
count=0 ;ｶｳﾝﾀ

repeat
//ｶｳﾝﾀ回し
count+1

//空の時に*0で値が0になるのを防止。
if A(count)=0 : A(count)=1
if A(count+1)=0 : A(count+1)=1

//掛け算
Palam=A(count)*A(count+1)

//終了ﾁｪｯｸ
if count=length(A)-1 : break
loop

mes ""+Palam+""
stop

こんなもんか。ﾃｷﾄｰだから微調整とか帳尻あわせは自分でやってくれ。
配列の要素数はlength関数で表せるよ。