Пойманную мышь посадили в клетку. За первый день она съела s граммов сыра...

[jager666]

Пойманную мышь посадили в клетку. За первый день она съела s граммов сыра. Каждый следующий день ей давали на 10% больше, чем в предыдущий. Но каждый 5-й день сыра давали меньше, чем в предыдущий день на 1 грамм. Сколько сыра съела мышь за d дней?
Вот мои попытки:

program maus;
var i,b:integer;
k,s,a:real;
begin
write('Введите кол-во сыра и дней ');
readln(a,b);
for i:=2 to b do begin
case i of
2..4:begin k:=k*1.1;
0: k:=k-1;
s:=a+k;
end;
writeln(s);
readln;
end;
end;
end.

[masax]

var 
 s, x: real;
 d, i: integer;
begin
 write('Введите кол-во сыра и дней ');
 readln(s,d);
 if d=0 then
  x:=0;
 else
 begin
  x:=s;
  for i:=2 to d do
  begin
   if (i mod 5)=0 then
    s:=s-1;
   else
    s:=s*1.1;
   x:=x+s;
  end;
 end
 else
 writeln(x);
end.