Написать в паскале определить количество дней в году, который вводит пользователь. в високосном годе - 366 дней, тогда как в обычном 365

В високосном годе - 366 дней, тогда как в обычном 365. Високосными годами являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 400.
var year: word;   begin write('Input year: '); readln(year);   if year mod 4 = 0 then if (year mod 100 = 0) and (year mod 400 <> 0) then year := 365 else year := 366 else year := 365;   writeln('The number of days in the year: ', year); end.