MODE/PROG,MAN
DECL/COMMON,INTGR,I
DECL/COMMON,INTGR,J
DECL/COMMON,DOUBLE,Z[4]
Z[1] = ASSIGN/20
Z[2] = ASSIGN/30
Z[3] = ASSIGN/35
Z[4] = ASSIGN/40.9152
DECL/COMMON,DOUBLE,V1
DO/I,1,4,1
J = ASSIGN/I+1
DO/J,1,4,1
IF/(Z[I].GT.Z[J])
V1= ASSIGN/Z[I]
Z[J] = ASSIGN/Z[I]
ENDIF
ENDDO
ENDDO
DECL/COMMON, CHAR, 256, KNPTC1
KNPTC1 = ASSIGN/CONCAT('最大值为:',STR(V1))
TEXT/OUTFIL, KNPTC1