Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день он пробежит больше 20 км, в какой день суммарный пробег за все дни превысит 100км — Pascal(Паскаль)

Uses crt;
Var d,day: integer;
    c,z,x:real;
Begin
Clrscr;
c:=10;
d:=0;
x:=10;
z:=0;
day:=0;
while c<=20 do
begin
c:=c+c/10;
d:=d+1
end;
while z<100 do
begin
x:=x+x/10;
z:=z+x;
day:=day+1
end;
writeln('lignik probegit 20 km v',d,' den');
write('summarni probeg previsit 100 km v',day,'den');
readkey;
end.