Сделайте хотябы 2 номера

(1-2+3)*4*5=40,

(-1+2+3+4)*5=40

всего длина окружности составляет 2пr, а половина - пr

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.