каждый день мышка съедает на 10 % больше чем в предыдущий день.составьте программу вычисляющую сколько зерен мышка съест за неделю если известно что в первый день она съела 8 зерен(for,while,repeat)

var i:integer;

s,z:real;

Begin

   z:=8;

   for i:= 2 to 7 do begin

      s:=s+z;

      z:= z*(1+10/100);

   end;

   writeln(s);

End.