grafik tabanlı program grafik tabanlı programuses crt,graph;
var
g,m,i:integer;
begin
G:=detect;
Initgraph(g,m,' ');
if graphresult<>0 then
Haalt;
I:=0;
randomize;
setcolor(14);
repeat
arc(200,240,235-I,125+i,i);
arc(400,240,115+i,65-i,i+50);
Inc(i,2);
until i>150;
readln;
closegraph;
end.
var
g,m,i:integer;
begin
G:=detect;
Initgraph(g,m,' ');
if graphresult<>0 then
Haalt;
I:=0;
randomize;
setcolor(14);
repeat
arc(200,240,235-I,125+i,i);
arc(400,240,115+i,65-i,i+50);
Inc(i,2);
until i>150;
readln;
closegraph;
end.
