UYGULAMA 13 - 12 Mart 2010

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

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

setfillstyle(3,3);
setcolor(3);
bar(0,0, getmaxx div 2, getmaxy div 2);
rectangle(0,0, getmaxx div 2, getmaxy div 2);

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

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

setfillstyle(3,3);
setcolor(7);
bar(getmaxx div 2,getmaxy div 2, getmaxx, getmaxy);
rectangle(getmaxx div 2,getmaxy div 2, getmaxx, getmaxy);

readln;
closegraph;
end.