代码如下:PROGRAM t001(input,output);
  USES
    crt,graph;
  VAR
    gd,gm:integer;
  begin
    gd:=detect;
    initgraph(gd,gm,'');
    bar(100,100,200,200);
    delay(1000)
  end.