熟悉FORTRAN 90

使用选择结构
某单位在发放工资时，为每个职工准备一个工资袋。假定币值为100，50、10，5、2，1元、5，2和1角9种，设某职工的工资为X，试计算他的工资袋里各币值的张数。

我觉得应求最少张数，这样才有唯一解。这题得多老啊，还有两毛、两块。
直接从大到小挨个相除。
s=0
s=s+(x/100)
x = mod(x,100)

s=s+(x/50)
x=mod(x,50)
......
当然，要用循环去做。把100,50，这些存在数组中。