program Day
implicit none
integer::d
integer::day_of_year
integer::i
integer::leap_day
integer::month
integer::year
print *,'This program calculates the day of year given the'
print *,'current date.Enter current month(1-12),day(1-31),'
print *,'and year in that order'
read *,month,d,year
if(mod(year,400)==0)then
leap_day=1
else if(mod(year,100)==0)then
leap_day=0
else if(mod(year,4)==0)then
leap_day=1
else
leap_day=0
end if
day_of_year=d
do i=1,month-1
select case(i)
case(1,3,5,7,8,10,12)
day_of_year=day_of_year+31
case(4,6,9,11)
day_of_year=day_of_year+30
case(2)
day_of_year=day_of_year+28+leap_day
end select
end do
print *,'Day=',d
print *,'Month=',month
print *,'Year=',year
print *,'day of year=',day_of_year
end program

cHJvZ3JhbSBEYXkKaW1wbGljaXQgbm9uZQppbnRlZ2VyOjpkCmludGVnZXI6OmRheV9vZl95ZWFyCmludGVnZXI6OmkKaW50ZWdlcjo6bGVhcF9kYXkKaW50ZWdlcjo6bW9udGgKaW50ZWdlcjo6eWVhcgpwcmludCAqLCdUaGlzIHByb2dyYW0gY2FsY3VsYXRlcyB0aGUgZGF5IG9mIHllYXIgZ2l2ZW4gdGhlJwpwcmludCAqLCdjdXJyZW50IGRhdGUuRW50ZXIgY3VycmVudCBtb250aCgxLTEyKSxkYXkoMS0zMSksJwpwcmludCAqLCdhbmQgeWVhciBpbiB0aGF0IG9yZGVyJwpyZWFkICosbW9udGgsZCx5ZWFyCmlmKG1vZCh5ZWFyLDQwMCk9PTApdGhlbgpsZWFwX2RheT0xCmVsc2UgaWYobW9kKHllYXIsMTAwKT09MCl0aGVuCmxlYXBfZGF5PTAKZWxzZSBpZihtb2QoeWVhciw0KT09MCl0aGVuCmxlYXBfZGF5PTEKZWxzZQpsZWFwX2RheT0wCmVuZCBpZgpkYXlfb2ZfeWVhcj1kCmRvIGk9MSxtb250aC0xCnNlbGVjdCBjYXNlKGkpCmNhc2UoMSwzLDUsNyw4LDEwLDEyKQpkYXlfb2ZfeWVhcj1kYXlfb2ZfeWVhciszMQpjYXNlKDQsNiw5LDExKQpkYXlfb2ZfeWVhcj1kYXlfb2ZfeWVhciszMApjYXNlKDIpCmRheV9vZl95ZWFyPWRheV9vZl95ZWFyKzI4K2xlYXBfZGF5CmVuZCBzZWxlY3QKZW5kIGRvCnByaW50ICosJ0RheT0nLGQKcHJpbnQgKiwnTW9udGg9Jyxtb250aApwcmludCAqLCdZZWFyPScseWVhcgpwcmludCAqLCdkYXkgb2YgeWVhcj0nLGRheV9vZl95ZWFyCmVuZCBwcm9ncmFt

MiAyOCAyMDIz

2 28 2023