Помогите с информатикой, пожалуйста. Мы проходим программирование циклов на Паскале и нужно решить задачу.
Спортсмен в первый день пробежал 3 км, а в каждый последующий день увеличивал дистанцию на 200 м. Сколько пробежал спортсмен:
А) в 15 день
Б) за 15 дней

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