Turbo Pascal. Спортсмен пробежал 10 км в первый день.Каждый следующий день он увеличивал норму на 10% от нормы предыдущего

Program  Primer1;

Var     i: integer;     d, s: real;

begin     d := 10;                              { пробег за 1 день}     s := 10;                              {сумма пробега за 1 день}               for i := 2 to 7 do                      begin                         d:= d * 1.1;   {пробег за каждый следующий день}                         s:= s + d;       {сумма пробега}                      end;     writeln(\'за 7 день-\', s);          {пробег за 7 день} end.

За 2 день спортсмен пробегает 11 км, поэтому не более 20 км он пробежит за 1 день.

За 30 и далее км можно вставить строку в цикл       

if s < 30 then writeln (\'за \',i, \'день\');