program graphe;
uses Graph,crt;
procedure animation;
var
  size: word;
  image: pointer;
  x1, y1, x2, y2: integer;
begin
  x1:=0; y1:=0; x2:=100; y2:=100;
  size := ImageSize(x1, y1, x2, y2);
  GetMem(image, size);
  GetImage(x1, y1, x2, y2, image^);
  while (x1 <= GetMaxX-100) and not KeyPressed do
  begin
    PutImage(x1, y1, image^, XorPut);
    Inc(x1, 5);
    PutImage(x1, y1, image^, XorPut);
  end;
end;

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');
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;
animation;
readln;
 closeGraph;
end.