uses graph;
var
gd,gm,i,x:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,' ');
if graphresult = 0 then begin
x:=30;
for i:=1 to 6 do begin
ellipse (x,200,0,360,30,70);
x:=x+60;
end;
readln;
end.
uses graph;
var
gd,gm,i,x:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,' ');
if graphresult = 0 then begin
x:=30;
for i:=1 to 6 do begin
ellipse (x,200,0,360,30,70);
x:=x+60;
end;
end;
readln;
end.