Спортсмен в 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.