Var s:real; k:integer; // описание переменных
begin
s:=10; // пробег в 1-й день
k:=1;
while s<20 do // пока пробег < 20 км<br> begin
k:=k+1; // добавляем один день
s:=s*1.1; // увеличиваем пробег на 10%
end;
writeln('s = ',s,' k = ',k); // выводим на экран результаты
end.
Результат:
s = 21.4358881 k = 9