меняем строку for var... на
for var n:=k to 1 do
будет выводить значение от большего до двух
33-<span>100001
103-</span><span>1100111
410-</span><span>110011010
53-</span><span>110101
61-</span><span>111101
99-</span><span>1100011
147-</span>10010011<span>
163-</span>10100011<span>
187-</span><span>10111011</span>
Uses Crt,GraphABC;var i,n,q,c:integer;beginhidecursor;Writeln('Введите количество досок N:');Read(n);clearwindow;For I:=1 to n dobeginc:= clyellow;SetPenColor(c);SetPenWidth(2);q:=40*i;MoveTo(100+q,340);LineTo(100+q,130);LineTo(120+q,100);LineTo(140+q,130);LineTo(140+q,340);LineTo(100+q,340);floodfill(100+q+10,200,c);<span>end;</span>