Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. — Pascal(Паскаль)

Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются)

Program HowDay;
Uses Crt;
Var
  Year,Days:word;
Begin
  Readln(Year);
  if (Year mod 4=0)
    then
      if (Year mod 100=0) and (Year mod 400<>0)
        then Days:=365
        else Days:=366
    else Days:=365;
  Writeln('In ', Year, ' is ',Days,' days');
  repeat
  until KeyPressed
End.