UYGULAMA 16 - 12 Mart 2010

program renkler; {UYGULAMA 15 ile yani ciktiyi verir!}
uses dos,crt,graph,printer;
var gs, gm, i:integer;

begin
gs:=detect;
initgraph(gs,gm, 'c:\tp\bgi');
if graphresult <>grok then halt(1);
cleardevice;
setbkcolor(8);

for i := 1 to 16 do
begin
setfillstyle(1, i);
bar(getmaxx div 16 * (i - 1),0,getmaxx div 16 * i, getmaxy);
end;

readln;
closegraph;
end.