閱讀(*，*)n
cn = 97
k=int(sqrt(n*1.0))
j=1
如果？(n.eq.1)？然後呢？
j=0
goto？100
endif
如果？((n.eq.2).或(n.eq.3))？然後呢？
j=1
其他
做什麽？10?i=2，k
如果？(mod(n，i).eq.0)？然後呢？
j=0
goto？100
endif
10繼續
endif
100 if？(j.eq.0)？然後
寫(*，*)'不是？“質數”
其他
寫(*，*)'prime '
endif
停止
結束
==================================
維度？答(12)
數據？a/1，2，3，4，5，6，7，8，9，10，11，12/
數據？n/12/
寫(*，*)？樂趣
停止
結束
功能？樂趣
維度？壹個名詞
整數？我，j
真實的？總和、平均值、最大值
總和=0
做什麽？10?i=1，n
總和=總和+a(i)
10繼續
aver=sum/n
max=-1.0e7
做什麽？20?i=1，n
如果？((a(i).lt.aver .)和.(a(i).gt.max))？然後
max=a(i)
endif
20繼續
樂趣=最大
返回
結束
==================================
維度？m(100)，n(100)
真實的？總和，m，n
整數？我，j，k
n(1)=2
m(1)=3
n(2)=4
m(2)=5
sum = n(1)/m(1)+n(2)/m(2)
做什麽？10?i=3，25
n(i)=n(i-1)+n(i-2)
m(i)=n(i-1)+m(i-1)
總和=總和+n(i)/m(i)
10繼續
寫(*，*)sum
停止
結束