UYGULAMA 12 - 12 Mart 2010

program ikiRenk;
uses dos,crt,graph;
var gs, gm:integer;

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

setbkcolor(15); {ya da 8 olabilir}
setcolor(3);
rectangle(0,0, getmaxx div 2, getmaxy);

setfillstyle(1,9);
bar(getmaxx div 2,0, getmaxx, getmaxy);

readln;
closegraph;
end.