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

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

Program If28;
Var
Year:Integer;
Begin
ReadLn(Year);
If Year Mod 4 = 0 Then
Begin
If (Year Mod 100 = 0) And (Year Mod 400 <> 0) Then
Begin
WriteLn('Дней в этом году 365')
End
Else
WriteLn('Дней в этом году 366');
End
Else
WriteLn('Дней в этом году 365');
End.

автор: Sklyarov Sergej a.k.a. S9