用Fortran语言编写假定个人所得税有三个等级，且随年龄不同有不同算法： 第1类：不满50岁 月收入在2000元以下的税率为5%，在2000元~8000元之间的税率为10%，在8000元以上的税率为15%。 第2类：50岁以上 月收入在2000元以下的税率为3%，在2000元~8000元之间的税率为7%，在8000元以上的税率为10%。 请编写程序，输入某人的年龄和年收入，计算他（她）一年所应缴纳的税金是多少。

我们可以使用 Fortran 语言来实现这个程序。首先，我们需要定义一个变量来存储某人的年龄和年收入。然后，我们需要使用条件语句来判断某人的年龄属于哪个类别，并计算出应缴纳的税金。

例如：

program tax_calculator
  implicit none

  ! 定义变量
  integer :: age        ! 年龄
  real :: annual_income ! 年收入
  real :: tax          ! 税金

  ! 输入年龄和年收入
  print *, "请输入年龄："
  read *, age
  print *, "请输入年收入："
  read *, annual_income

  ! 计算税金
  if (age < 50) then
    ! 第1类
    if (annual_income <= 2000) then
      tax = annual_income * 0.05
    else if (annual_income > 2000 .and. annual_income <= 8000) then
      tax = annual_income * 0.1
    else
      tax = annual_income * 0.15
    end if
  else
    ! 第2类
    if (annual_income <= 2000) then
      tax = annual_income * 0.03
    else if (annual_income > 2000 .and. annual_income <= 8000) then
      tax = annual_income * 0.07
    else
      tax = annual_income * 0.1
    end if
  end if

  ! 输出结果
  print *, "应缴纳的税金为：", tax

end program tax_calculator

上面的代码中，我们首先定义了三个变量：`age`（年龄）、`annual_income`（年收入）和 `tax`（税金）。然后，我们使用了 `read` 语句来输入某人的年龄和年收入。接下来，我们使用了一个条件语句来判断某人的