二月多少天?
A:28;B:29;C:...

const
    d:array [1..12] of byte
     =(31,28,31,30,31,30,31,31,30,31,30,31);
    x:array [1..12] of byte
     =( 3, 0, 3, 2, 3, 2, 3, 3, 2, 3, 2, 3);
  var
    yue,ri,xq:byte;
    y,r,q:byte;
    s:string;
begin
  readln(yue,ri,xq);
  if yue<>1 then y:=yue-1 else y:=12;
  if ri>d[y] then r:=d[y] else r:=ri;
  q:=(xq+7-x[y]) mod 7;if q=0 then q:=7;
  write(yue:3,ri:3,q:3);
  readln;
end.