Uses graph; Var driver, mode, detect:integer; Begin Driver:=detect; Initgraph(driver, mode, ? ?); Setbkcolor(10); Closegraph End.