Program fg
Uses crt, graph;
Var gr, gm:integer;
begin
gr:=0;
initghaph (gr, gm,’c:\fpc\2.6.2.\bin’);
if graphresuit <>grok then hajf (1);
setlinestyle (1,3,1,);
setcolor (12);
rectangle (300,100,400,200);
setcolor (1);
line (300,100,300,300);
setcolor (10);
rectangle (200,300,500,400);
setfillstyle(1,10);
flodfill (300,350,10);
setcolor (4);
bar (100, 400, 600, 500);