Program buzia; uses crt,graph; var r:integer; karta,tryb:integer; begin clrscr; detectgraph(karta,tryb); initgraph(karta,tryb,''); setcolor(white); circle(200,200,150); circle(200,200,20); Ellipse(200,250,180,360,50,50); setcolor(white); circle(130,150,30); circle(260,150,30); readkey; closegraph; end.
Raphael6320