Определить количество дней в году, которое вводится пользователем. алгоритм решения : в високосном году - 366 дней, в обычном 365. високосными являются все года. делящиеся нацело на 4, за исключением столетий, которые не делятся нацело на 400. проверяем, делится ли год на 4. если нет, то год не високосный. если год делится на 4, то проверяем, делится ли он на 100. если нет, то год високосный. если год делится на 100, но при этом не делится на 400, то год не високосный.
var a: integer;
begin
writeln ('Введите год');
readln (a);
if a mod 4 <> 0 then writeln ('В этом году 365 дней') else
if (a mod 4 = 0) and (a mod 100 <> 0) then writeln ('В этом году 366 дней') else
if (a mod 100 = 0) and (a mod 400 <> 0) then writeln ('В этом году 365 дней');
end.