<p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>end;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'>procedureresult3;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>var i:integer;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>begin<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>writeln('enter filename foroutput:');<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>readln(file1);<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>assign(text3,file1);<spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>rewrite(text3);<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>writeln(text3,f[1,1]:8:3);<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>writeln(text3,' 1<spanstyle="mso-spacerun: yes">&nbsp; </span>0', e[0]:8:2); t:=1;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>for i:=2 to n do<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if g[i,t]=1then<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin writeln(text3,i:2,'<span style="mso-spacerun: yes">&nbsp;</span>1',e[t]:8:2); t:=1 end<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>else<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin<span style="mso-spacerun: yes">&nbsp;</span>writeln(text3,i:2,'<span style="mso-spacerun: yes">&nbsp;</span>0',d[t]:8:2); t:=t+1;<span style="mso-spacerun: yes">&nbsp; </span>end ;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>writeln(f[1,1]:8:3);<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>writeln(' 1<spanstyle="mso-spacerun: yes">&nbsp; </span>0',e[0]:8:2);<span style="mso-spacerun:yes">&nbsp; </span>t:=1;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>for i:=2 to n do<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if g[i,t]=1then<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin writeln(i:2,'<span style="mso-spacerun: yes">&nbsp;</span>1',e[t]:8:2); t:=1 end<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>else<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin<span style="mso-spacerun: yes">&nbsp; </span>writeln(i:2,'<spanstyle="mso-spacerun: yes">&nbsp; </span>0',d[t]:8:2); t:=t+1;<spanstyle="mso-spacerun: yes">&nbsp; </span>end ;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>close(text3);<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>end;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'>begin {main}<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>init;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>for i:=0 to n do<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>for j:=0 to k do<spanstyle="mso-spacerun: yes">&nbsp; </span>g[i,j]:=1;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>for i:=0 to k do<spanstyle="mso-spacerun: yes">&nbsp; </span>f[n+1,i]:=0;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>for i:=1 to n+1 do f[i,k+1]:=-100;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>for j:=n downto 2 do<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>begin<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>k2:=k; <o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if j&lt;k thenk2:=j-1;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>for t:=1 to k2do<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>p:=e[t]+f[j+1,1];<span style="mso-spacerun: yes">&nbsp;</span>q:=d[t]+f[j+1,t+1];<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>f[j,t]:=p;<span style="mso-spacerun: yes">&nbsp;&nbsp; </span>g[j,t]:=1;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if q&gt;pthen<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin g[j,t]:=0;<span style="mso-spacerun: yes">&nbsp;</span>f[j,t]:=q;<span style="mso-spacerun: yes">&nbsp; </span>end;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>end;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>end;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>f[1,1]:=d[0]+f[2,1];<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'><spanstyle="mso-spacerun: yes">&nbsp; </span>result3;<o:p></o:p></span></p><p class=MsoPlainText style='line-height:16.0pt;mso-line-height-rule:exactly'><spanlang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt'>end.<o:p></o:p></span></p><p class=MsoPlainText style='line-height:20.0pt;mso-line-height-rule:exactly'><spanlang=EN-US><span style="mso-spacerun: yes">&nbsp;</span></span></p></div></body></html>