var n:longint;
begin
read(n);
if （括号这里）((n mod 100=0)and(n mod 400=0))or(n mod 400)
then
if n mod 3200<>0
then
if n mod 4=0
then write('Y')
else write('N');
end.

var n:longint;
begin
read(n);
if (n mod 100=0)and(n mod 400=0)or(n mod 400)
then
if n mod 3200<>0
then
if n mod 4=0
then write('Y')
else write('N');
end.
第4行还是错的。。。。只能帮你到这了。调试说4行17符附近错误： 不匹配 "Boolean" 类型，可以改用 "LongInt" 类型