program calendar

! program w zaleznosci od wprowadzonego numeru miesiaca
! wypisuje pore roku do ktorej nalezy ten miesiac

implicit none


integer :: numer

write(*,*) 'Wpisz numer miesiaca'
read(*,*) numer

select case(numer)
	case(3,4,5)
	write(*,*) 'Mamy wiosne!'
	case(6,7,8)
	write(*,*) 'Mamy lato!'
	case(9,10,11)
	write(*,*) 'Mamy jesien!'
	case(12,1,2)
	write(*,*) 'Mamy zime!'
	case default
	write(*,*) numer, 'nie jest numerem miesiaca'
end select	 

end