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.


2012-06-15 • Просмотров [ 844 ]