{(c) 2001 Emur http://emur.org}

program kalendar;
uses crt;
const den:   array [1..7]  of string=('PO','UT','ST','CT','PA','SO','NE');
      delka: array [1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
      mesic: array [1..12] of string=('Leden','Unor','Brezen','Duben',
  'Kveten','Cerven','Cervenec','Srpen','Zari','Rijen','Listopad','Prosinec');
type mez_den=0..31; mez_mesic=1..12;
var xd: mez_den; xm: mez_mesic;     {xm-neznama mesic}
    x,y,i:integer;

BEGIN
clrscr;
writeln('KALENDAR na rok 2002'); writeln;
write('Zadej mesic, 1 - 12: '); read(xm);
xd:=0;write('Zadej den, 1 - 31, bez dne=0: '); read(xd); writeln;
writeln(mesic[xm]:18);
for i:=1 to 7 do write(den[i]:4);   {vypis nazvu dnu}
writeln;writeln('ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ':10);
window(1,9,28,15);                  {okno pro cisla dnu}
case xm of                 {case kvuli rozdilnemu prvnimu dnu v mesici}
     8     :write('':12);             {tj. posun prvniho radku vpravo}
     9,12  :write('':24);
     1,10  :write('':4);
     2,3,11:write('':16);
     5     :write('':8);
     6     :write('':20);
    end;
for i:=1 to delka[xm] do            {vypis cisel dnu}
  begin
  if i=xd then            {oznaceni konkretniho dne,kdyz den neni..}
    begin                 {..zadan (xd=0) tak podminka neprobehne}
    x:=wherex; y:=wherey;
      if i<9 then write('  ¯',i)  {rozliseni 1 a dvou mistnych cisel dnu}
        else write(' ¯',i);
    gotoxy(x+4,y);
    continue;
    end;
  write(i:4);
  end;
readkey;
END.