UYGULAMA 17 - 12 Mart 2010

program renkler;
uses dos,crt,graph,printer;
var gs, gm, i, j:integer;

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

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

readln;
closegraph;
end.