program graphe;
uses Graph;
var pilote:smallint; mode:smallint; q,p,j,i,n:integer;
begin
pilote:= detect;
n:=50;
  p:=50;
    q:=200;
initGraph (pilote,mode,'C:\Documents\graphisme\bgi');
setcolor(red);
for i:=1 to 10 do
begin
circle(n,650,15);
n:=n+40;
end;
for j:=1 to 3 do
begin
rectangle(p,50,q,150);
p:=p+250; q:=q+250;
end;
readln;
 closeGraph;
end.