Написать программу на Паскале.

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

Program abc;

var a, b, i: real;

begin

a:=10; / / 10 км за день

b:=1; / / счетчик дней

Repeat

a:=a+a*0.1; / / + 10% от пробега предыдущего

b:=b+1; / / счетчик дней

Until a>20; / / суммарный пробег за все дни превысит 20 км

writeln ('Пробег превысил 20 км. на день № ', b) ;

Repeat

a:=a+a*0.1; / / + 10% от пробега предыдущего

b:=b+1; / / счетчик дней

Until a>100; / / суммарный пробег за все дни превысит 100 км

writeln ('Пробег превысил 100 км. на день № ', b) ;

end.