Для того чтобы нарисовать четные квадраты красным цветом, а нечетные синим, можно использовать следующий код на Turbo Pascal:

program ColoredSquares;
uses crt, graph;
const
maxX = 640;
maxY = 480;
var
gd, gm, x, y, color: integer;
begin
gd := D8bit;
gm := m640x480;
initgraph(gd, gm, '');
color := 4; // начинаем с нечетного цвета
for y := 0 to maxY div 20 do
begin
for x := 0 to maxX div 20 do
begin
if (x mod 2 = 0) then // четная строка
setcolor(12) // красный цвет
else
setcolor(1); // синий цвет
rectangle(x * 20, y * 20, x * 20 + 20, y * 20 + 20);
end;
end;
readln;
closegraph;
end.

Этот код создает окно размером 640x480 и рисует квадраты размером 20x20. Четные строки квадратов будут красного цвета, а нечетные - синего цвета.