Рисование 14 разноцветных вертикальных полос, окрашенных 14 цветами (кроме белого и черного).

Program stripes;
uses graph;
var
gd, gm, c, x, y, i: integer;
begin
 gd:=Detect;
 InitGraph(gd, gm, '');
 SetBkColor(white);
 ClearDevice;
 x:=0;
 for c:=1 to 14 do
 begin
 x:=x+35;
 SetColor(c);
 Line(x, 0, x, 400);
 for i:=1 to 5 do Line(x+i, 0, x+i, 400);
 end;
 Readln;
 CloseGraph;
end.

---