懂Fortran语言和c语言的请帮帮忙！！

习题：某商店对购货额为1000元以上(含1000元,下同),八折优惠；500元以上1000元以下,九折优惠；200元以上500元以下,九五折优惠；100元以上200元以下,九七折优惠；100元以下,不优惠。输入购货额,计算优惠货款,并输出。编写程序实现之。最好用Fortran编，谢谢

WRITE(*,*) '请问购买多少钱的货物？'
READ(*,*) QIAN
IF(QIAN>=1000)THEN
YOUHUI=QIAN*0.20
ELSEIF(QIAN>=500)THEN
YOUHUI=QIAN*0.10
ELSEIF(QIAN>=200)THEN
YOUHUI=QIAN*0.05
ELSEIF(QIAN>=100)THEN
YOUHUI=QIAN*0.03
ELSE
YOUHUI=0.0
ENDIF
WRITE(*,*) '购买',QIAN,'元钱的货物，可以优惠',YOUHUI,'元。'
END

不好意思,不是很清楚!