用Pascal语言编写一道是闰年还是平年的程序

下面的程序在DELPHI下调试通过：

program test;
var y:integer;
begin
write('y=');readln(y);
if (y mod 4=0) and ((y mod 100<>0) or (y mod 400=0))
then writeln('闰年')
else writeln('平年')
end.

program rzy6_1;
var
y,m:integer;

function ddays(year,month:integer):integer;
var
days:integer;
y:boolean;
begin
y:=(year mod 4=0)and(year mod 100<>0)or(year mod 400=0);
case month of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2:if y
then days:=29
else days:=28;
end;
ddays:=days;
end;

begin
write('enter year and month:');
readln(y,m);
writeln('year=',y,' month=',m,' days=',ddays(y,m) );
end.

var y:longint;
begin
readln(y);
if (y mod 4=0) and (y mod 100=0) and (y mod 400=0) and (y mo