Program grh;
uses graph, crt;
var
grDriver:integer;
grMode:integer;
grPath:string;
errCode:integer;
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:='c:\tp\Ba';
initgraph(grDriver,grMode,grPath);
errCode:=GraphResult;
if errCode=grOk then
begin
setcolor(215);
rectangle(200,400,250,450);
setcolor(47);
circle(200,150,25);
setcolor(223);
line(300,150,300,450);
line(300,150,100,300);
line(100,300,100,450);
readln();
end.
