{ VESMIR.PAS } { Program vykresli vesmir. } { } { Datum:17.06.2008 http://www.trsek.com } program vesmir; uses crt,graph; var gd,gm:integer; begin initgraph(gd,gm,' '); detectgraph(gd,gm); setfillstyle(1, 14); setcolor(14); circle(200,300,30); FloodFill(200, 300,14); setfillstyle(1, 10); setcolor(10); circle(300,56,5); floodfill(300,56,10); ellipse(200,300,0,360,450,250); setfillstyle(1, 3); setcolor(3); circle(700, 300,14); floodfill(700,300,3); Ellipse(200, 300,0, 360, 500, 100); setfillstyle(1, 4); setcolor(4); circle(320,420,18); floodfill(320,420,4); ellipse(200,300,0,360,400,120); setfillstyle(1, 2); setcolor(2); circle(600,290,15); floodfill(600,290,2); ellipse(200,300,0,360,400,90); setfillstyle(1,5); setcolor(5); circle(100,220,20); floodfill(100,220,5); ellipse(200,300,0,360,300,80); setfillstyle(1,6); setcolor(6); circle(140,230,9); floodfill(140,230,6); ellipse(200,300,0,360,240,70); setfillstyle(1,13); setcolor(13); circle(320,300,7); floodfill(320,300,13); ellipse(200,300,0,360,120,40); setfillstyle(1,12); setcolor(12); circle(250,340,10); floodfill(250,340,12); ellipse(200,300,0,360,130,45); setfillstyle(1,9); setcolor(9); circle(200,350,11); floodfill(200,350,9); ellipse(200,300,0,360,150,50); readln; end.