駐車料金を計算するプログラム
料金は30分単位で切り上げて計算される
最初の一時間まで３００円/３０分
一時間を越えると２００円/３０分
入力は実数型　2,35（2時間35分）
この実数を引数で関数の値が料金のFunctionをつくり使用する

↑のような宿題が出たのですがFortran77の型で誰かお願いします