program tek_cift_bulma
integer::n,tamsayi,fark
real::gercel,girdi_farki,girdi
print*,"Lutfen sayiyi giriniz:"
read*,girdi
n=girdi
girdi_farki=girdi-n
if (girdi_farki==0) then
gercel=(n/2.0)*2.0
tamsayi=(n/2)*2
fark=gercel-tamsayi
select case (fark)
case(1)
print*,"Girdiginiz sayi tektir."
case(0)
print*,"Girdiginiz sayi cifttir."
case default
print*
end select
else
print*,"Girdiginiz sayi tamsayi degildir"
end if
end program tek_cift_bulma