var
q:array[1..12] of integer;
a,i,o,p:integer;
begin
read(a,o,p);
q[1]:=31;
q[3]:=31;
q[4]:=30;
q[5]:=31;
q[6]:=30;
q[7]:=31;
q[8]:=31;
q[9]:=30;
q[10]:=31;
q[11]:=30;
q[12]:=31;
for i:=1 to 10000 do
begin
inc(p);
if p >q[o] then begin
inc(o);
p:=1;
if o>12 then begin
inc(a);
o:=1;
end;
if (a mod 4=0) and (a mod 100<>0) or (a mod 400=0) then q[2]:=29
else q[2]:=28;
end;
end;
write(a,'-',o,'-',p);

end.