Как нарисовать шахматную доску?

Rectangle(100,50,150,100);
0
50
100
150
200
250
50
100
150
200
Ось Х
Ось Y
A (100, 50)
B (200, 150)

Rectangle(100,50,150,100);

Rectangle(100,50,150,100);
Rectangle(200,50,250,100);
Rectangle(300,50,350,100);
Rectangle(400,50,450,100);
0
50
100
150
200
250
50
100
150
200
Ось Х
Ось Y
A (100, 50)
B (200, 150)

Rectangle(100,50,150,100);
Rectangle(200,50,250,100);
Rectangle(300,50,350,100);
Rectangle(400,50,450,100);

Код очень громоздкий!..
Циклический алгоритм
– описание действий, которые должны повторяться указанное число раз или пока не выполнено заданное условие.

while < условие> do
<оператор 1>;
пока … делай …
for
:=
to
do
<оператор1>;
для n от А до В делай …

Пример 1
Пример 2