Var
x1, x2, y1, y2, r1, r2, d: real;
begin
  writeln('Sisesta ringi keskpunkti koordinaat x1');
  readln(x1);
  writeln('Sisesta ringi keskpunkti koordinaat x2');
  readln(x2);
  writeln;
  writeln('Sisesta ringi keskpunkti koordinaat y1');
  readln(y1);
  writeln('Sisesta ringi keskpunkti koordinaat y2');
  readln(y2);
  writeln;
  d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
  writeln('d= ',d);
  writeln('Sisesta raadius r1');
  readln(r1);
  writeln('Siseta raadius r2');
  readln(r2);
if (r1+r2)<d then writeln('Ei oma �hiseid punkte');
if   (r1+r2)>d then writeln('Läikuvad');
if (r1+r2)=d then writeln('Puutuvad');
if (r1>r2) and ((d+r2)<r1) then writeln('Siis on �ksteise sees');
end.