uses graph;
var x,y,r,x1,y1,i:integer;
begin
randomize;
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=2*getmaxY div 3;
r:=getmaxY div 2;
for i:=1 to 180 do
begin
x1:=x+round(r*cos(i*pi/180));
y1:=y-round(r*sin(i*pi/180));
setcolor(1+random(15));
line(x,y,x1,y1);
end;
readln
end.