Дан номер года. Определить количество дней в этом году, если високосный год делится на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400. Решить нужно с помощью case.

program zz1;

var p:integer; / / задаем переменную целого типа

i:boolean; / / задаем переменную логического типа

begin

writeln (' Введите номер года '); / / вводим номер года с клавиатуры

read (p);

i: = (p mod 4 = 0) and (p mod 100 0) and (p mod 400 0); / / записываем результат проверки всех условий на високосный год в переменную

case i of

true:write (' Этот год високосный '); / / если условие верно, то выводим один ответ

else write (' Этот год не високосный '); / / если условие неверно, то выводим другой ответ

end;

end.