yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if (r&lt;k) and (i&lt;t2) then<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>begin<spanstyle="mso-spacerun: yes">&nbsp; </span>t3:=i+1;<span style="mso-spacerun:yes">&nbsp; </span>find2(r+1,t3,t2); end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp; </span><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;</span>if r=k then<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>begin{3}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if((kz=1)or(kz=3)) and (k&gt;2) then<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>temp:=a[2];<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>for j:=2 to k-1 do a[j]:=a[j+1];<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>a[k]:=temp;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>for j:=1 tom do b[j]:=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span><spanstyle="mso-spacerun: yes">&nbsp;</span>for j:=0 to k<span style="mso-spacerun:yes">&nbsp; </span>do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>for j2:=j+1to k+1 do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>t:=a[j2]-a[j];<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>if b[t]=0 then<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>b[t]:=1; c[t]:=a[j]; d[t]:=a[j2];<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>done:=true;<span style="mso-spacerun: yes">&nbsp; </span>j:=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>repeatj:=j+1 until (b[j]=0)or(j&gt;m);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if j&lt;=mthen done:=false;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if done thenresult;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;{3}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp; </span>end; {2}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>end; {1}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>begin{main}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>writeln('inptu L:(L&lt;=40 and L&gt;3)');<span style="mso-spacerun:yes">&nbsp; </span>readln(m);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>k:=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>repeat k:=k+1 until ((k+2)*(k+1) div 2) &gt;= m;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>10: init1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>for kz:=1 to 3 do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp; </span>case kz of<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp; </span>1: begin{*}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>a[2]:=m-2;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if k=2<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>thenfind2(2,a[2],a[2])<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>else<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>r:=3; t1:=2;<span style="mso-spacerun: yes">&nbsp; </span>t2:=m-3;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp; </span><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>find2(r,t1,t2);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;{*}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp; </span>2: begin{**}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>a[2]:=2;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>r:=3; t1:=3;<spanstyle="mso-spacerun: yes">&nbsp; </span>t2:=m-1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if t2&lt;t1 thent2:=t1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>find2(r,t1,t2);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;{**}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp; </span>3: begin{***}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>a[2]:=m-1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>r:=3; t1:=2;t2:=m-2;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if t2&lt;t1 thent2:=t1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>find2(r,t1,t2);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;{***}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp; </span>end;{case}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>k:=k+1;<span style="mso-spacerun: yes">&nbsp; </span>goto 10;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>end.</span></p></div></body></html>