program sultis_gerti_sveika;
  { 120 u‘davinys }
  function sultys (k, { kiženpinigi— kiekis }
                   s, { sul‡i— butelio kaina }
                   b, { tuž‡io butelio kaina }
                   i, { savait‚s diena, kai pradedamos gerti sultys }
                   n : integer) { turim— pinig— kiekis }
                                : integer;
    var but : integer;
  begin
    but := 0;
    if n = 1     { jei pirmadienis - iž karto paimami kiženpinigiai }
       then n := n + k;
    while n >= s do  { kol u‘tenka pinig— sul‡i— buteliui }
      begin
        but := but + n div s;    { perkamos sultys }
        n := n mod s + (n div s) * b; { ir parduodami buteliai }
        if i = 7
           then begin
                  i := 1;      { pirmadien }
                  n := n + k   { gaunami kiženpinigiai }
                end
           else i := i + 1
      end;
    sultys := but
  end;
  var k, s, b, n, i, rez : integer;
begin
  write ('­veskite k, s, b, i ir n reikžmes: ');
  readln (k, s, b, i, n);
  rez := sultys (k, s, b, i, n);
  writeln (rez)
end.