#2624: PASCAL的,怎么WA了


exiapegasus (≯飞翔∽天马≮)


var

  a,b:longint;

begin

  read(a);

  b:=a mod 4;

  if b=0 then write('闰年') else

  begin

     b:=a mod 400;

     if b=0 then write('闰年') else write(平年');

end;

end.