Программирование на Pascal / Delphi / Лабораторные работы3 / Лабораторная работа 4 / LAB4

Program Lab_4;
uses crt, graph;
var
   gd, gm, x, y, r : integer;
begin
   gd:=detect;
   initgraph (gd, gm, 'c:\tp7\BIN\');
   if graphresult <> 0 then
      begin
           write ('Oshibka grafiki:', grapherrormsg (graphresult));
           halt;
      end;
   clrscr;
   SetColor (black);
   x:=320; y:=240; r:=50;
   circle (x, y, r);
   floodfill (x, y,yellow);
   circle (x-(r div 2), y-(r div 3), r div 6);
   floodfill (x-(r div 2), y-(r div 3),cyan);
   circle (x+(r div 2), y-(r div 3), r div 6);
   floodfill (x+(r div 2), y-(r div 3),cyan);
   circle (x+(r+(r div 7)), y-(r div 3), r div 6);
   circle (x-(r+(r div 7)), y-(r div 3), r div 6);
   line (x, y+(r div 4), x, y-(r div 4));
   arc (x, y+(r div 3), 180, 360, r div 3);
readln;
closegraph;
end.