uses crt;
var f:text; s:string; a,b,c,d:longint;
function sn(a,b:longint):longint;
begin
   if a<=7 then if a mod 2=0 then sn:=30 else sn:=31 else
   if a mod 2=0 then sn:=31 else sn:=30;
   if a=2 then if b mod 4=0 then sn:=29 else sn:=28;
end;
begin
clrscr;
   assign(f,'input.pas');reset(f);
      readln(f,s); 
   close(f);
   assign(f,'output.pas');rewrite(f);
      val(copy(s,1,2),a);
      val(copy(s,4,2),b);
      val(copy(s,7,4),c);
      repeat 
         inc(a);
         if sn(b,c)=a-1 then begin a:=1; inc(b); end; 
         if b=13 then begin inc(c); b:=1; end;
         inc(d);
      until (a=22)and(b=11)and(c=2022);
      writeln(f,d-1);
   close(f); 
end.

uses crt;
var
    f1,f2:text;
    st:string;
    a,b,n:byte;
    c:word;
    dem:longint;
function ngay:longint;
begin
    if b<=7 then
       begin
           if b=2 then
              begin
                  if (c mod 400=0) or ((c mod 4=0) and (c mod 100<>0)) then
                     exit(29);
                  exit(28);
              end;
           if b mod 2=0 then exit(30);
           exit(31);
       end;
    if (b mod 2 = 0) then exit(31);
    exit(30);
end;
begin
    assign(f1,'CUP.INP');reset(f1);
    assign(f2,'CUP.OUT');rewrite(f2);
    readln(f1,st);
    dem:=0;
    val(copy(st,1,2),a);
    val(copy(st,4,2),b);
    val(copy(st,7,4),c);
    n:=ngay;
    while (a<>22) or (b<>11) or (c<>2022) do
       begin
           inc(dem);
           inc(a);
           if a=n+1 then
              begin
                  inc(b);
                  a:=1;
              end;
           if b=13 then
              begin
                  inc(c);
                  b:=1;
              end;
           if a=1 then n:=ngay;
       end;
    writeln(f2,dem);
    close(f1);close(f2);
end.