Дан номер года. Найти количество дней в этом году, если високосный

program zz1;

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

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

begin

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

read(p);

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

case i of

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

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

end;

end.