Uses   Graph;
VAR   a, Device, Mode :Integer;
BEGIN
Device:=0;
InitGraph (Device, Mode, 'C:\FPC\2.4.0\units');
setcolor (White);
Setfillstyle (1, Blue);
rectangle (40, 40, 600, 600);
line (40, 350, 600, 350);
FloodFill (50,50, white);
setfillstyle (1, white);
circle (550, 100, 50);
Floodfill (550, 100, white);
setfillstyle (1, Green);
floodfill (599, 599, White);
setfillstyle (1, red);
rectangle (500, 420, 550, 450);
floodfill (505, 425, white);
setfillstyle (1, black);
rectangle (520, 425, 540, 440);
floodfill (521, 426, white);
setfillstyle (1, brown);
Line (525, 390, 500, 420);
Line (525, 390, 550, 420);
floodfill (525, 391, white);
setfillstyle (1, brown);
Line (100, 420, 130, 445);
Line (100, 420, 70, 445);
rectangle (70, 445, 130, 500);
floodfill (100, 421, white);
setfillstyle (1, red);
floodfill (71, 446, white);
setfillstyle (1, brown);
rectangle (80, 455, 120, 500);
floodfill (81, 456, white);
setfillstyle (1, brown);
rectangle (185, 445, 195, 500);
floodfill (186, 456, white);
setfillstyle (1, lightgreen);
Circle (190, 425, 25);
floodfill (190, 425, white);
setfillstyle (1, brown);
rectangle (350, 445, 360, 500);
floodfill (351, 446, white);
setfillstyle (1, lightgreen);
Circle (355, 425, 25);
floodfill (355, 425, white);
a:=130;
repeat
Setcolor (White);
setfillstyle (1, Red);
Ellipse (a, 300, 0, 360,  90, 40);
floodfill (a, 300, White);
Setcolor (Blue);
setfillstyle (1, Blue);
Ellipse (a, 300, 0, 360,  90, 40);
floodfill (a, 300, Blue);
a:=a+2
until a>300;
  CloseGraph
END.