Дан номер года. Определить, является ли он високосным (год является високосным, если его номер делится на 4, за исключением тех, которые делятся на 100 и не делятся на 400).

Ну а год какой?

ты год то напиши.

Var

year: integer;

begin

write ('Введите год: ') ;

readln (year) ;

if year mod 4 = 0 then

if year mod 100 = 0 then

if year mod 400 0 then

write ('365 дней')

else write ('366 дней')

else write ('366 дней')

else write ('365 дней') ;

end.