Спортсмен в 1 день пробежал 10 км. каждый следующий день он увеличил норму на 10%. за сколько день он пробежит 100км? напишете программу через паскаль нужно

Program ncdkj;uses crt;var a,b,p,d,sd:integer;beginclrscr;a:=10;b:=10;d:=1;sd:=1;p:=10*0,1;repeat a:=a+p;d:=d+1;until a>20;repeat b:=b+p;sd:=sd+1;s:=s+b;until s>100;case sd mod 7 of0:writeln('сумма 100 км в 7');1:writeln('сумма 100 км в 1');2:writeln('сумма 100 км в 2'); И так до шестиcase d mod 7 of0:writeln('20 км в 7');1:writeln('20 км в 1');2:writeln('20 км в 2'); И так до шестиreadln;end.