Program 1;
uses GraphABC;
Begin
SetWindowHeight(400);
SetWindowWidth(600);
Line (200,200,400,200);
Line (400,200,300,140);
line (300,140,200,200);
FloodFill (300,170,clblue);
Line (200,200,400,200);
Line (400,200,300,260);
Line (300,260,200,200);
FloodFill (300,230,cllime);
circle (160,200,40);
FloodFill (160,200,clred);
circle (440,200,40);
FloodFill (440,200,clyellow);
End.
