Uses Graph;
Var gd,gm: Integer;

    begin
      gd:=Detect;InitGraph(gd,gm,");
      SetColor(1); SetFillStyle(1,14);
      Circle(100,100,25);
      FillEllipse(100,200,25,50);
      SetColor(2); SetFillStyle(1,12);
      Rectangle(200,100,250,150);
      Bar(200,200,300,250);
      Readln; CloseGraph;
End.