program SayiTahminOyunu
  implicit none
  integer :: secilenSayilar(5)
  integer :: tahmin, dogruTahminSayisi, i, j
  logical :: sayiBulundu
  real :: secilenSayilar_real
  
  ! Rastgele 5 sayı seç
  call random_seed()
  do i = 1, 5
    call random_number(secilenSayilar_real)
    secilenSayilar(i) = 1 + int(56 * secilenSayilar_real) ! 1 ile 56 arasında bir sayı
  end do
  
  ! Kullanıcıdan tahminleri al
  dogruTahminSayisi = 0
  do i = 1, 5
    print *, "Tahmin ", i, ": "
    read(*,*) tahmin
    sayiBulundu = .false.
    do j = 1, 5
      if (tahmin == secilenSayilar(j)) then
        sayiBulundu = .true.
        exit
      end if
    end do
    if (sayiBulundu) then
      dogruTahminSayisi = dogruTahminSayisi + 1
    end if
  end do
  
  ! Sonuçları değerlendir
  select case (dogruTahminSayisi)
    case (1)
      print *, "Amorti"
    case (2)
      print *, "2 sayı bildin! 100TL"
    case (3)
      print *, "3 sayı bildin! 1000TL"
    case (4)
      print *, "4 sayı bildin! 150.000TL"
    case (5)
      print *, "5 sayı bildin! 1.000.000TL"
    case default
      print *, "Hiçbir sayıyı doğru tahmin edemediniz."
  end select
  
  ! Sistemin seçtiği sayıları yazdır
  print *, "Sistemin Seçtiği Sayılar:"
  do i = 1, 5
    print *, secilenSayilar(i)
  end do
end program SayiTahminOyunu