program Project1;   
{$APPTYPE CONSOLE} 
uses               
  SysUtils;
  
Const
  MonN : Array[1..12] of String [6] = ('一月' , '二月' , '三月' ,'四月' , '五月' , '六月' ,
                                       '七月' , '八月' , '九月' ,'十月' , '十一月' , '十二月');               
  MonLen : Array [1..12] of Byte = (31,28,31,30,31,30,31,31,30,31,30,31);
Var
 I , K , Mon , Day , FDay , Len : Byte;
 Year : Integer;
 MonName : String [6];
 Inf : Text;
 
Function Leap (Year : Integer) : Boolean;
Begin {Leap}
 If Year Mod 100 = 0 Then
   Leap := Year Mod 400 = 0
 Else
  Leap := Year Mod 4 = 0;
End; {Leap}    Begin        
 WriteLn ('範例：萬年曆');
 Write ('請輸入西元年: '); 
 ReadLn (Year);
 WriteLn ('**********************************');
 WriteLn ('西元 ' intToStr(Year) ' 年  年曆':25); 
 WriteLn ('**********************************');
 FDay := 1;
 For I := 1 to Year-1 Do
  If Leap(I) Then
    FDay := 2   FDay mod 7
  Else
    FDay := FDay   1;
  FDay := FDay Mod 7;
  For Mon := 1 to 12 Do
  Begin
   MonName := MonN [Mon];
   If Leap(Year) And (Mon = 2) Then
    Len :=29
   Else
    Len := MonLen [Mon];
   WriteLn (' <<<<<<<<  ',MonName,'  >>>>>>>>');
   WriteLn ('=============================');
   WriteLn (' Sun Mon Tue Wed Thu Fri Sat ');
   WriteLn ('=============================');
   For K := 1 to FDay Do
    Write ('    ');
   For Day := 1 to Len Do
   Begin
    Write(Format('M',[Day]));
    FDay := FDay  1;
    If FDay > 6 Then
    Begin
     WriteLn (#13#10);
     FDay :=0;
    End;
   End; 
   WriteLn (#13#10);
   WriteLn (#13#10);     
 End; 
 ReadLn;
end.