PROGRAM Ortalama
!---------------------------------------------------
! 03prg01.f95
! Üç sayının aritmetik ortalaması
!---------------------------------------------------
IMPLICIT NONE
REAL :: A, B, C, Ort

  WRITE (*,*) "Bu program üç sayının ortalamasını hesaplar."
  WRITE (*,*) "Sayıları girin:"
  READ  (*,*) A, B, C

  Ort = (A + B + C)/3.0

  WRITE (*,*) "Ortalama = ", Ort

END PROGRAM