uses graph, crt;
var
i:integer;
grDriver:Integer;
grMode:Integer;
ErrCode:Integer;
begin
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
ErrCode:=GraphResult;
if ErrCode<>grOK then
begin
writeln('graphics error:',GraphErrorMsg(ErrCode));
halt(1);
end;
readkey;

line(320,0,320,500);
line(0,250,640,250);

for i:=0 to 640 do begin
circle(20*i+20,250,2);
circle(320,20*i+30,2);
end;
 readkey;
setcolor(3);
for i:=0 to 640 do begin
ellipse(40*i+30,250,180,360,10,20);
ellipse(40*i+10,250,0,180,10,20);
end;

readkey;
setcolor(4);
for i:=0 to 640 do begin
ellipse(20*i+10,250,180,360,5,140-4*i);
ellipse(20*i-20,250,0,180,5,140-4*i);
end;

readkey;
setcolor(9);
ellipse(320,0,180,360,60,250);
readkey;
end.