program DaysInFebruary;
var
year: integer;
begin
writeln('Enter the year: ');
readln(year);
if (year mod 4 = 0) and ((year mod 100 <> 0) or (year mod 400 = 0)) then
writeln('In year ', year, ' February has 29 days.')
else
writeln('In year ', year, ' February has 28 days.');
readln;
end.

Программа принимает ввод от пользователя - год, и выводит количество дней в феврале для високосного и не високосного года.