program daily_program
integer::D
print*,"Please enter a day number between 1 and 7."
read*,D
select case(D)
case(1)
print*,"on Monday"
print*,"on Monday 09.00-10.50: History"
print*,"on Monday 11.00-12.50: Mathematics"
case(2)
print*,"on Tuesday"
print*," 09.00-10.50: History"
print*," 11.00-12.50: Mathematics"
print*," 14.00-16.00: Chemistry"
case(3)
print*,"on Wendesday"
print*," 09.00-10.50: Turkce"
print*," 11.00-12.50: Mathematics"
print*," 14.00-16.00: Introduction to Food Science and Technology"
case(4)
print*,"on Thursday"
print*," 09.00-10.50: Physics"
print*," 11.00-12.50: Chemistry"
case(5)
print*,"on Friday"
print*," 09.00-10.50: Physics"
print*," 11.00-12.50: English"
case default
print*,"Free Day!"
end select
end program daily_program