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

Program abc;var a,b,i: real;begina:=10; // 10 км за деньb:=1; // счетчик днейRepeata:=a+a*0.1; // +10% от пробега предыдущегоb:=b+1;  // счетчик днейUntil a>20;  //суммарный пробег за все дни превысит 20кмwriteln ('Пробег превысил 20км. на день № ',b);Repeata:=a+a*0.1;  // +10% от пробега предыдущегоb:=b+1; // счетчик днейUntil a>100; //суммарный пробег за все дни превысит 100кмwriteln ('Пробег превысил 100км. на день № ',b);end.