Программирование на 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.