一个简单的问题 [复制链接]

题目描述：在程序中输入年份，判断是否为闰年，输出Yes/NO；
程序语言：Pasical。
（注：4年为一闰，没100年多一闰，每400年少一闰）

program year;
var y:integer;
begin
  write('please enter the year!');
  read(y);
  if y mod 4=0 then do
    begin
      if y mod 100=0 then do
        begin
          if y mod 400=0 then do write('No!');
          else write('Yes!');
        end;
      else write('No!');
    end;
  else write('No!');
  readln;
end.

这是我编的，错误85，少分号。请各位大侠帮帮忙，找一下错

如果有什么错误请指出
若有什么更好的思路，算法，请告诉我。
QQ：459715529，请注明：OI爱好者

[更正]原帖中“4年为一闰，没100年多一闰，每400年少一闰”应为“每4年为一闰，每100年少一闰，每400年多一闰”
给大家带来不便，请谅解！

program year;
var y:integer;
begin
  write('please enter the year!');
  read(y);
  if y mod 4=0 then do {then 后面不用加do }
    begin
      if y mod 100=0 then do {同上}
        begin
          if y mod 400=0 then do write('No!'); {同上，又else 前面不能有分号}
          else write('Yes!');
        end;
      else write('No!');{同上一注释后半部分}
    end;
  else write('No!');{同上}
  readln;
end.

program year;
var
y:integer;
begin
read(y);
if ((y mod 4=0) and (y mod 100<>0)) or (y mod 400=0)
  then
  write('YES')
  else
  write('NO');
end.

var
  n:integer;
begin
  readln(n);
  if n mod 4 <>0 then
    begin
      writeln('No!');
      exit;
    end
  else
    begin
      if n mod 100<>0 then
        begin
          writeln('Yes!');
          exit;
        end
      else
        begin
          if n mod 400=0 then writeln('Yes!')
          else writeln('No!');
        end;
    end;
end.

program year;
var y:integer;
begin
  write('please enter the year!');
  read(y);
  if y mod 4=0 then do {then 后面不用加do }
    begin
      if y mod 100=0 then do {同上}
        begin
          if y mod 400=0 then do write('No!'); {同上，又else 前面不能有分号}
          else write('Yes!');
        end;
      else write('No!');{同上一注释后半部分}
    end;
  else write('No!');{同上}
  readln;
end.