PROGRAM annuiteetti
  ! Ohjelma laskee annuiteettilainan kuukausierän.
  IMPLICIT NONE
  REAL :: vuosikorko, kk_korko, lainasumma, kk_era
  INTEGER :: laina_aika

  WRITE (*,*) 'Anna vuosikorko prosentteina (%):'
  READ (*,*) vuosikorko
  WRITE (*,*) 'Anna alkuperäinen lainasumma (mk):'
  READ (*,*) lainasumma
  WRITE (*,*) 'Anna laina-aika kuukausissa (kk):'
  READ (*,*) laina_aika

  WRITE (*,'(A20, F12.2)') 'Vuosikorko (%):', vuosikorko
  WRITE (*,'(A20, F12.2)') 'Lainasumma (mk):', lainasumma
  WRITE (*,'(A20, I12)') 'Laina-aika (kk):', laina_aika

  IF (vuosikorko > 0 .AND. lainasumma > 0 &
      .AND. laina_aika > 0) THEN
    ! Syöttötiedot ovat kunnossa
    kk_korko = (vuosikorko/100.0)/12.0
    kk_era = kk_korko*lainasumma/ &
        (1 - (1 + kk_korko)**(-laina_aika))
    WRITE (*,'(A20,F12.2)') 'Kuukausimaksu (mk):', kk_era
  ELSE
    WRITE (*,*) 'Virhe: arvojen pitää olla positiivisia!'
  END IF
END PROGRAM annuiteetti