program meses (input,output);
uses crt;
var d,m:integer;
begin
clrscr;
writeln(' ¿Que mes del año quieres ver?');
Readln(m);
clrscr;
//Febrero
if m=2 then
 begin
  writeln;
  writeln(' Febrero del a¤o 2011.');
  writeln;
  writeln(' L  M  M  J  V  S  D');
  write('   ');
  for d:=1 to 6 do
   begin
    write(' ',d,' ');
   end;
  writeln;
  for d:=7 to 9 do
   begin
    write(' ',d,' ');
   end;
  for d:=10 to 13 do
   begin
    write(' ',d);
   end;
  writeln;
  for d:=14 to 20 do
   begin
    write(' ',d);
   end;
  writeln;
  for d:=21 to 27 do
   begin
    write(' ',d);
   end;
  writeln;
  write(' 28');
  readln;
 end;
//Enero
if m=1 then
 begin
  writeln;
  writeln(' Enero del a¤o 2011.');
  writeln;
  writeln(' L  M  M  J  V  S  D');
  writeln('               ');
  for d:=1 to 2 do
   begin
    write(' ',d,' ');
   end;
  writeln;
  for d:=3 to 9 do
   begin
    write(' ',d,' ');
   end;
  writeln;
  for d:=10 to 16 do
   begin
    write(' ',d);
   end;
  writeln;
  for d:=17 to 23 do
   begin
    write(' ',d);
   end;
  writeln;
  for d:=24 to 30 do
   begin
    write(' ',d);
   end;
  writeln;
  write(' 31');
  readln;
 end;
end.