Помогите с информатикой, пожалуйста. Мы проходим программирование циклов на Паскале и

Var  
   day,                      //номер денька 
   day_dist,              //дистанция пройденная в этот денек в метрах 
   sum_dist :integer;//дистанция пройденная за все деньки 
Begin 
   day_dist:=3000;   //за 1-ый денек пробежал 3000 м. 
   sum_dist:=3000;  //общая дистанция тоже 3000 м. 

//Найти ответ можно 3-мя способами 
//Вариант 1. цикл for

   for day:=2 to 15 do begin      //считаем со 2 по 15 денек   
      day_dist:= day_dist + 200;//дневная дистанция возрастает на 200 м. 
      sum_dist:= sum_dist + day_dist;//общая дистанция увеличивается на 
                                                            дистанцию пройденную за денек 
   end; 
 

//Вариант 2. цикл while  
 
   day:=1;                                              //первый денек посчитан 
   while day lt; 15 do begin                  //пока не настал 15 день считаем   
      day := day +1;                                //увеличиваем номер денька   
      day_dist:= day_dist + 200;           //увеличиваем дневную дистанцию   
      sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию 
   end; 
 
//Вариант 3. цикл repeat until  
 
   day:=1;                                               //1-ый денек посчитан 
   repeat                                              //начинаем считать последующие   
      day := day +1;                                //увеличиваем номер денька   
      day_dist:= day_dist + 200;          //увеличиваем дневную дистанцию   
      sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию 
   until day = 15;                                   //если настал 15 денек перестаем считать 
 
   writeln('В 15 денек пройдено ', day_dist,'метров.');  //вывод результатов
   writeln('За 15 дней пройдено ', sum_dist,'метров.');
end.

 var a:real;
 i:integer;
begin a:=10;
for i:=1 to 7 do begin
a:=a+(a*0.1);
end;
write(a,' ');
end.