Начав тренировку лыжник в 1 день пробежал 10 км. Каждый след. день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить: а)в какойдень он пробежал больше 20 км. б) в какой день суммарный пробег за все дни превысит 100 км? Задача по информатике, надо составить программу в pascal abc. Помогите решить в программе Pascal, с помощью whileребят отзовитесь от этого зависит моя оценка, очень прошу

vars:real;flag,d,m:integer;begin           s:=10; d:=1;          while s<=100 do                            begin                                    writeln('d: ',d,'   s: ',s);  {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}                               s:=s+s*0.1;                                         d:=d+1;                                                   if s<20 then                                                              flag:=d;                              end;      writeln('> 20 km :', flag+1,'    day');      writeln('>100 km : ',d);end.