有程序：DATA I，M，N／2，1，4／ 10 M=M*I I=I+1 IF(I．GT．N)GOT0 20 GOTO 10 20 WRITE(*，*)M END 执行此程序后，输出结果为：-一级结构工程师

有程序：DATA I，M，N／2，1，4／
10 M=M*I
I=I+1
IF(I．GT．N)GOT0 20
GOTO 10
20 WRITE(*，*)M
END
执行此程序后，输出结果为：