VAR
 Days_in_Month,First_Day_Number,Days_Before_First_Monday,
 First_Saturday_Date,Number_Of_Mondays,Saturday_Dates:Byte;
BEGIN
 Write('Days in Month = ');
 ReadLn(Days_in_Month);
 Write('First day (1..7) is ');
 ReadLn(First_Day_Number);
 WriteLn;
 If First_Day_Number=1 then
  Days_Before_First_Monday:=0
 else
  Days_Before_First_Monday:=8-First_Day_Number;
 Number_Of_Mondays:=((Days_in_Month-Days_Before_First_Monday) div 7)+1;
 WriteLn('Number of Mondays is ', Number_Of_Mondays);
 WriteLn;
 If First_Day_Number=7 then
  First_Saturday_Date:=7
 else
  First_Saturday_Date:=7-First_Day_Number;
 Writeln('Saturday dates:');
 Saturday_Dates:=First_Saturday_Date;
 Repeat
  Write(Saturday_Dates:4);
  Inc(Saturday_Dates,7);
 Until Saturday_Dates>Days_in_Month;
 ReadLn;
END.

CONST
 Month_Name:Array[1..12] of String=('January','February','March','April',
                               'May','June','July','August',
                               'September','October','November','December');
 Days_in_Months_not_bis:Array[1..12] of Byte=(31,28,31,30,31,30,
                                              31,31,30,31,30,31);
 Days_in_Months_bis:Array[1..12] of Byte=(31,29,31,30,31,30,
                                          31,31,30,31,30,31);
 Week:Array[1..7] of String=('Mo','Tu','We','Th','Fr','Sa','Su');
VAR
 Year_Type,Day_Jan_1,Month,Rem,Day_1,Days_in_Month:Byte;
 i,j,Num:Integer;
 Days:Word;
 Calend:Array[1..7,1..6] of String[2];
 S:String;

BEGIN
 Write('Year_Type(not bis - 1, bis - 2): ');
 ReadLn(Year_Type);
 Write('Day number of January, 1st (1..7): ');
 ReadLn(Day_Jan_1);
 Write('Month (1..12): ');
 ReadLn(Month);
 Writeln;
 Days:=0;
 If Year_Type=1 then
  begin
   Days_in_Month:=Days_in_Months_not_bis[Month];
   for i:=1 to Month-1 do
    Days:=Days+Days_in_Months_not_bis[i];
  end
 else
  begin
   Days_in_Month:=Days_in_Months_bis[Month];
   for i:=1 to Month-1 do
    Days:=Days+Days_in_Months_bis[i];
  end;
 Rem:=Days mod 7;
 Day_1:=Day_Jan_1+Rem;
 If Day_1>7 then Day_1:=Day_1-7;
 For i:=1 to 7 do
  For j:=1 to 6 do
   begin
    Num:=i-Day_1+1+(j-1)*7;
    If (Num>Days_in_Month) or (Num<1) then
     S:='  '
    else
     STR(Num:2,S);
    Calend[i,j]:=S;
   end;
 Writeln(Month_Name[Month]);
 Writeln;
 For i:=1 to 7 do
  begin
   Write(Week[i],'   ');
   For j:=1 to 6 do
    Write(Calend[i,j],'  ');
   Writeln;
  end;
 Readln;
END.