Високосный год

Год високосный, если для номера этого года верно хотя бы одно из утверждений:

- делится на 4, но при этом не делится на 100;

- делится на 400.

Выведите количество дней в феврале года y.



var
 y,x:integer;
 begin
 x:=0;
 read(y);
 if (y mod 400=0) then x:=x+1;
 if (y mod 4 = 0) and (not(y mod 100=0)) then x:=x+1;
 case x of
 0: writeln(28);
 1: writeln(29);
 2: writeln(29);
 end;
 end.