program den(im=nput,output);
type date=1..31;
     mounth=(jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);
     weekday=(su,mo,tu,we,th,fr,sa);
var d:date; m:mounth; wd1,wd:weekday;
    k:0..12;
begin writeln('vvedite date',d); read(d);
      writeln('vvedite nomer mesyca');read(k);
      case k of
      1: m:=jan;
      2: m:=feb;
      3: m:=mar;
      4: m:=apr;
      5: m:=may;
      6: m:=jul;
      7: m:=jun;
      8: m:=aug;
      9: m:=sep;
      10: m:=oct;
      11: m:=nov;
      12: m:=dec
      end;
      wd1:=mo;