riba

uses GraphABC;
begin
  arc(110,360,100,45,160);
  arc(110,220,100,200,315);
    floodfill(90, 300, clRed);
  line(15,254,17,325);
  circle(148,288,3);
  line(180,290,165,290);
   floodfill(100, 100, clWhite);
end.