1. program SayiTahminOyunu
2.   implicit none
3.   integer :: secilenSayilar(5)
4.   integer :: tahmin, dogruTahminSayisi, i, j
5.   logical :: sayiBulundu
6.   real :: secilenSayilar_real
7.  
8.   ! Rastgele 5 sayı seç
9.   call random_seed()
10.   do i = 1, 5
11.     call random_number(secilenSayilar_real)
12.     secilenSayilar(i) = 1 + int(56 * secilenSayilar_real) ! 1 ile 56 arasında bir sayı
13.   end do
14.  
15.   ! Kullanıcıdan tahminleri al
16.   dogruTahminSayisi = 0
17.   do i = 1, 5
18.     print *, "Tahmin ", i, ": "
19.     read(*,*) tahmin
20.     sayiBulundu = .false.
21.     do j = 1, 5
22.       if (tahmin == secilenSayilar(j)) then
23.         sayiBulundu = .true.
24.         exit
25.       end if
26.     end do
27.     if (sayiBulundu) then
28.       dogruTahminSayisi = dogruTahminSayisi + 1
29.     end if
30.   end do
31.  
32.   ! Sonuçları değerlendir
33.   select case (dogruTahminSayisi)
34.     case (1)
35.       print *, "Amorti"
36.     case (2)
37.       print *, "2 sayı bildin! 100TL"
38.     case (3)
39.       print *, "3 sayı bildin! 1000TL"
40.     case (4)
41.       print *, "4 sayı bildin! 150.000TL"
42.     case (5)
43.       print *, "5 sayı bildin! 1.000.000TL"
44.     case default
45.       print *, "Hiçbir sayıyı doğru tahmin edemediniz."
46.   end select
47.  
48.   ! Sistemin seçtiği sayıları yazdır
49.   print *, "Sistemin Seçtiği Sayılar:"
50.   do i = 1, 5
51.     print *, secilenSayilar(i)
52.   end do
53. end program SayiTahminOyunu
54.