<span>Program z1;</span>
<span>uses</span> crt;
<span>var</span> n<span>,</span>m<span>,</span>kd<span>,</span>i<span>,</span>j<span>,s</span><span>:</span><span>integer</span>;
<span>begin</span><span>repeat</span><span>write</span><span>(</span><span>'n='</span><span>)</span>;<span>readln</span><span>(</span>n<span>)</span>;
W<span>rite</span><span>(</span><span>'m='</span><span>)</span>; <span>readln</span><span>(</span>m<span>)</span>;
<span>until</span><span>(</span>n<m<span>)</span>; <span>
</span><span>for</span> i<span>:=</span>n <span>to</span> m <span>do</span>
<span>begin</span>
k<span>d</span><span>:=</span><span>0</span><span>; </span>
<span>for</span><span> j</span><span>:=</span><span>2</span><span>to</span><span> i </span><span>div</span><span>2</span><span>do</span><span> </span>
<span>if</span><span> i </span><span>mod</span><span> j</span><span>=</span><span>0</span><span>then</span><span> inc</span><span>(</span><span>kd</span><span>)</span><span>; </span>
<span>if</span><span> kd</span><span>=</span><span>0</span><span>then</span><span> </span>
<span> </span><span>begin</span><span> </span>
<span> </span><span>write</span><span>(</span><span>i</span><span>,</span><span>' '</span><span>)</span><span>;inc</span><span>(s</span><span>)</span><span>; </span>
<span>end</span><span>; </span>
<span>end</span><span>;</span>
<span>writeln</span><span>;</span>
<span>writeln</span><span>(</span><span>'Всего '</span><span>,s</span><span>)</span><span>; </span><span>end</span><span>.</span>