一个GRIP小程序，出了点错，麻烦大家指点下^_^

wll

请问下各位，下面的式子，我想用循环实现，编程时出现了点问题，麻烦大家给指点指点~~
y2(1)=(m1-m2)(m1-m3)(m1-m4)
4 l7 t+ q* G# P: R( a+ l3 Z; Ty2(2)=(m2-m1)(m2-m3)(m2-m4)
y2(3)=(m3-m1)(m3-m2)(m3-m4)
& S  @; e! `1 e' V; i! Ry2(4)=(m4-m1)(m4-m2)(m4-m3)

程序如下
4 D6 k, p/ Y3 p$ O& |" xNUMBER/m(4),y2(4)
DATA/m(1..4),5,4,3,2
5 S; D" v" B! r8 i- E; {8 E) j
: L! j+ i$ `3 j( ]4 S# e( vDATA/y2(1..4),1,1,1,1
trm2:
DO/trm3:,i,1,4
6 w, K6 I9 V. S( u5 q4 FDO/trm3:,j,1,4

% H4 U2 z; I+ T2 @4 \: t! g7 q2 [ IFTHEN/i<>j
5 `* i  ^/ @& @: B  F( Zy2(i)=y2(i)*(m(i)-m(j))
, i0 V" ?0 ~/ z9 J) C" Z& M+ K JUMP/trm2:
2 E2 B. W3 A7 c8 ~2 T6 H, C ENDIF
PRINT/y2(i)
trm3:
# F, w7 h( R, dhalt
也是忙活了好几天，怎么弄也没弄对，麻烦大家帮忙看一下哪里不对，请多多指点^_^

wll

已经解决了 是IF语句用得不对
4 }' W3 l3 J8 b最后的程序时这样的
NUMBER/m(4),y2(4)
4 Z/ H. T, j+ Q: t% V" |  A0 IDATA/m(1..4),5,4,3,2
( h$ `- Y- F3 `: c* S' @DATA/y2(1..4),1,1,1,1
) A/ x9 Y9 _# r0 PDO/trm3:,i,1,4
DO/trm3:,j,1,4
  x2 j- }7 O' N. g. M% L( ~$ t IF/i<>j,y2(i)=y2(i)*(m(i)-m(j))
/ v6 w6 }; G* x/ C  H9 o+ dtrm3:
" y) `) N7 z  V" y  p1 h$ APRINT/y2(1..4)
halt

-KASA-

编程需要细心的