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

Предыдущий
вопрос Следующий
вопрос

program LeapYear;
var
year: integer;
begin
writeln('Введите год:');
readln(year);
if ((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0) then
writeln('Високосный год, в феврале 29 дней')
else
writeln('Не високосный год, в феврале 28 дней');
end.