<span>program
HelloWorld;</span>
var run,
day: integer;
begin
<span> run := 10;</span>
<span> day := 1;</span>
<span> while run<20 do</span>
<span> begin</span>
<span> write('</span>День:');
<span> write(day);</span>
<span> write('</span>Километраж:');
<span> writeln(run);</span>
<span> day:= day +1;</span>
<span> run := run+2;</span>
<span> end;</span>
<span> write('</span>День:');
<span> write(day);</span>
<span> write('</span>Километраж:');
<span> writeln(run);</span>
end.