схСхСхКоКр.

Добрый день, коллеги! Извините, что не ответил сразу. Как-то не могу привыкнуть, что PascalABC.Net стоит не на всех компьютерах в ИРО и УрФУ.

Я бы Вашу задачу попытался решить все же как-то более универсально. Вообще возьмите за привычку не использовать внутри текста программы константы. Они должны быть в блоке констант (исключение - когда константа используется не более 1 раза и программа небольшая. Если большая - значит в блок констант!).

uses graphABC;

begin

var a:=40; // ширина доски

var h:=200; // высота доски

var x:=100;

var y:=100;

// начинаем рисовать с верхнего угла доски

for var i:=1 to 10 do

begin

moveto(x,y);

lineto(x+a div 2,y + a div 2); // линия с вершины вправо под углом

lineto(x+a div 2,y + a div 2 + h); // линия вниз

lineto(x-a div 2,y + a div 2 + h); // низ доски

lineto(x-a div 2,y + a div 2); // левый бок доски

lineto(x,y); // вернулись в исходную точку

floodfill(x,y+5, clrandom); // закрасить внутреннюю область доски

x+=a; // новая координата вершины новой доски

end;

end.