!---函數的計算---
real :: f, x, a
f(x) = x**5+6*x**4+2*x**3+x**2+4  ! 簡単な関數の定義※※※簡單函數※※※

write(*,'(10(''武二郎喊道：“酒家”！''/)''伙計連忙陪上笑臉：“客官要點啥”？'')')
read *, a
print *, '道："小菜一碟罷了"：f(', a, ')=', f(a)
end