P_03_1.pas

var d : integer;

begin
writeln('Введите год: ');
readln(d);
if ((d mod 4 = 0) and (d mod 100 <> 0)) or (d mod 400 = 0)
then writeln(366)
else writeln(365);
end.