program burcunu_bulan_program
integer::gun,ay
character(len=10)::burc

print*,"Hangi ay dogdunuz?(rakam olarak)"

do
read*,ay
    if (ay>12 .or. ay<1) then
    print*,"Yanlis ay girdiniz. Tekrar deneyiniz."
    else
    exit
    end if
end do


print*,"Ayin kacinda dogdunuz?(rakam olarak)"

do
read*,gun
    select case (ay)
    case(1,3,5,7,8,10,12)
        if (gun<1 .or. gun>31) then
        print*,"Yanlis bir gun girdiniz. Tekrar deneyiniz."
        else
        exit
        end if
    case(4,6,9,11)
        if (gun<1 .or. gun>30) then
        print*,"Yanlis bir gun girdiniz. Tekrar deneyiniz."
        else
        exit
        end if
    case(2)
        if (gun<1 .or. gun>29) then
        print*,"Yanlis bir gun girdiniz. Tekrar deneyiniz."
        else
        exit
        end if
    end select
end do

select case (ay)
case (1)
    if (gun>=1 .and. gun<=20) then
    burc="Oglak"
    else if (gun>20 .and. gun<=31) then
    burc="Kova"
    end if    
case (2)
    if (gun>=1 .and. gun<=19) then
    burc="Kova"
    else if (gun>19 .and. gun<=29) then
    burc="Balik"
    end if    
case (3)
    if (gun>=1 .and. gun<=20) then
    burc="Balik"
    else if (gun>20 .and. gun<=31) then
    burc="Koc"
    end if    
case (4)
    if (gun>=1 .and. gun<=20) then
    burc="Koc"
    else if (gun>20 .and. gun<=30) then
    burc="Boga"
    end if    
case (5)
    if (gun>=1 .and. gun<=21) then
    burc="Boga"
    else if (gun>20 .and. gun<=31) then
    burc="Ikizler"
    end if    
case (6)
    if (gun>=1 .and. gun<=21) then
    burc="Ikizler"
    else if (gun>21 .and. gun<=30) then
    burc="Yengec"
    end if    
case (7)
    if (gun>=1 .and. gun<=23) then
    burc="Yengec"
    else if (gun>23 .and. gun<=31) then
    burc="Aslan"
    end if    
case (8)
    if (gun>=1 .and. gun<=23) then
    burc="Aslan"
    else if (gun>23 .and. gun<=31) then
    burc="Basak"
    end if    
case (9)
    if (gun>=1 .and. gun<=23) then
    burc="Basak"
    else if (gun>23 .and. gun<=30) then
    burc="Terazi"
    end if    
case (10)
    if (gun>=1 .and. gun<=22) then
    burc="Terazi"
    else if (gun>22 .and. gun<=31) then
    burc="Akrep"
    end if    
case (11)
    if (gun>=1 .and. gun<=22) then
    burc="Akrep"
    else if (gun>20 .and. gun<=30) then
    burc="Yay"
    end if    
case (12)
    if (gun>=1 .and. gun<=22) then
    burc="Yay"
    else if (gun>20 .and. gun<=31) then
    burc="Oglak"
    end if   
end select

print*,"Burcunuz ",trim(burc),"."

end program burcunu_bulan_program