спортсмен в первый день пробежал 5 км а последующие 9 дней на 5% больше то предыдущего дня. Выведете на экран километраж за каждый день и найдите, сколько спортсмен пробежал за 10 дней.

странно

у меня все работает

а если без этого попробывать будет работать??

тогда еще и Uses Crt; уберите

окей

Program pr1;Uses Crt;Varn,i:integer;a,b,s:real;beginClrScr;s:=5;a:=5;for i:=2 to 10 dobegina:=a*1.05;s:=s+a;end;writeln('Спортсмен пробежал за 10 дней:',s);readln;end.