HOW CAN I FIX MY FORTRAN CODE? It's showing multiple errors. :(

Thank you for your help.

1 Program LeapYear Integer year Print *, "Enter a year:" Read *, year 4 5 ! A year is a leap year IF it is either 6 divisible by 4 and not by 100 7 or 8 divisible by 400 10 IF ((MOD (year,4 .eq. a) .AND. (MOD (year,100) .ne. e)) Print *, "It is a leap year.'" ELSE IF 12 13 14 MOD (year,400) .eq. e) THEN Print *, "It is a leap year." ELSE Print *, "It is not a leap year." 16 17 END IF 18 19 End Program LeapYear