program savaitgaliu_skaicius;
  { 2 u‘davinys }
{----------------------------------------------------------}
  type metai = 1583..10000;
  function sav_sk (met : metai) : integer;
    var sv_sk : integer;  { žežt. ir sekm. skai‡ius }
    function kel (m : metai) : boolean;
      { ar metai m keliamieji }
    begin
      kel := (m mod 400 = 0) or
             (m mod 100 <> 0) and
             (m mod 4 = 0)
    end;
    function pir_sav_dien (m : metai) : integer;
      { randa pirm…j… met— savait‚s dien… }
      var met   : metai; { pasirenkami metai, kuri— }
                         { pirmoji diena : sekmadienis }
          d , i : integer;
    begin
      met := 1978; { pasirenkami metai }
      { kuri— pirmoji savait‚s diena yra sekmadienis}
      d := 7;
      for i := met - 1 downto m do  { jei duoti metai yra ankstesni }
          if kel (i)
             then d := ((d - 2) + 7) mod 7
             else d := ((d - 1) + 7) mod 7;
      for i := met to m - 1 do  { jei duoti metai yra v‚lesni }
          if kel (i)
             then d := (d + 2) mod 7
             else d := (d + 1) mod 7;
      if d = 0
         then d := 7;
      pir_sav_dien := d
    end;
  begin
    sv_sk := 0;
    case pir_sav_dien (met) of
      1..4 : sv_sk := 104;
      5, 7 : sv_sk := 105;
      6    : if kel (met)
                then sv_sk := 106
                else sv_sk := 105
    end;
    sav_sk := sv_sk
  end;
{----------------------------------------------------------}
  var m : metai;
begin
  write ('­veskite metus ');
  readln (m);
  writeln (sav_sk (m))
end.
