program ris;
uses graph,crt;
type tris=object
procedure dom;
end;
var
olo:tris;
grDriver:integer;
n,y:integer;
grMode:integer;
grPath:string;
procedure tris.dom;
var
rad1,rad2:integer;
begin
setbkcolor(9);
rad1:=150;
rad2:=220;
writeln(((getmaxy div 2)-rad1-((rad2-rad1) div 2)));
circle(getmaxx div 2, getmaxy div 2, rad1);
circle(getmaxx div 2, getmaxy div 2, rad2);
{circle(x,y,((rad2-rad1) div 2)-1);
{circle((getmaxx div 2)-rad1-((rad2-rad1) div 2),(getmaxy div 2)+25,((rad2-rad1) div 2)-1);
 }
end;      {
procedure tris2;
var
y1:integer;
x1:integer;
begin
circle(x1,y1,70);
end;        }
var
g,x,y1,x1,gy:integer;
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:='d:/borland/bp/bgi';
initgraph(grdriver,grmode,grpath);
olo.dom;
{for i:=1 to 640 do
olo.dom  {
tris2;
gy:=220;
for x:=110 to 140 do begin
tris2;
delay(1000)              end;
y1:=sqrt(sqr(185)-(sqr(x1-(getmaxx div 2))))+(gy);
{for n:=640 downto -200 do
begin
olo.dom;
delay(100);
cleardevice;
if n=-200 then exit;end;}
readln;
end.