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

uses crt;
var d,s:real;
    i,d1,d2:integer;
begin
clrscr;
s:=10;//общий пробег
d:=10;//каждый день
i:=1;//номер дня
d1:=0;//первый день больше 20
d2:=0;//первый день больше 100
while(d<=20)or(s<=100) do
 begin
  i:=i+1;
  d:=d*1.1;
  s:=s+d;
  writeln('день',i:2,' за день=',d:0:2,' всего=',s:0:2);
  if(d>20)and(d1=0)then d1:=i;
  if(s>100)and(d2=0)then d2:=i;
 end;
writeln;
writeln('Первый раз больше  20 км в день ',d1);
writeln('Первый раз больше 100 км в день ',d2);
readln
end.