uses Crt, Graph;
var Gd, Gm: Integer;
    k: integer;
begin
 Gd := Detect;
 InitGraph(Gd, Gm, 'c:\bp\bgi');
 if GraphResult <> grOk then  Halt(1);
 for k:=0 to 15 do setpalette(k,k);
 for k:=0 to 15 do begin
                   SetFillStyle(1, k);
                   Bar(40*k,0,40*k+39,479)
                   end;
 setcolor(7); rectangle(0,0,639,479);
 ReadKey;
 for k:=0 to 15 do setrgbpalette(k,k*63 div 15,k*63 div 15,k*63 div 15);
 ReadKey;
 CloseGraph;
end.